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Summary 

The  published  information  about  low  molecular  weight  toxins  grows  steadily,  yet  there 
are  few  tools  to  manage  this  information.  The  information  tools  currently  used  are  citation 
index  ;s  or  abstract  services.  These  tools  do  not  integrate  facts  into  an  existing  knowledge 
base  but  merely  provide  citations  or  narrative  abstracts.  To  meet  the  toxin  knowledge 
needs  and  overcome  the  limitations  of  current  information  systems,  a  Toxin  Knowledge 
System  was  created. 

After  studying  the  knowledge  acquisition  techniques  used  by  individuals  in  different 
biomedical  disciplines,  we  set  out  to  automate  the  knowledge  acquisition  process  and 
compile  information  into  usable,  continuously  updated  knowledge.  The  Toxin  Knowledge 
System  was  built  using  Informix*  relational  database  management  system  on  a  Sequent® 
minicomputer.  The  Ui-er  interface  application  was  developed  using  Infoimix-4GL®  pro¬ 
gramming  language  and  makes  extensive  use  of  windows,  ring-menus,  and  pop-up  choices 
on  screen.  The  system  was  based  on  four  concepts:  a  standard  knowledge  structure,  stan¬ 
dard  nomenclature  systems,  a  structured  abstracting  process,  and  computer-generated 
structured  monographs. 

The  standard  knowledge  structure  into  four  major  parts:  citation  data,  study  design, 
results,  and  keywords-notes.  Multiple  database  tables  were  created  for  each  part.  Because 
the  interactions  between  these  various  tables  were  so  complex,  the  user  interface  applica¬ 
tion  had  to  be  designed  to  manage  these  interactions  with  little  user  involvement. 

To  ensure  that  the  information  entered  was  consistent,  standard  nomenclature  systems 
were  aeated  for  clinical  terminology  (based  on  SNOMED/SNOVET),  study  information 
(internally  developed),  journal  abbreviations  (based  on  NLM  List  of  JoumaJs  index^),  and 
book  information  (internally  developed).  Attempts  to  create  an  efficient  chemical  vocabu¬ 
lary  based  on  the  Registry  of  Toxic  Meets  of  Chemical  Substances  were  unsuccessful.  The 
user  application  contain^  mechanisms  to  add  terms,  modify,  or  delete  terms  from  the 
various  vocabularies. 

Control  of  the  structured  abstracting  process  was  built  into  the  user  application.  Cur¬ 
rently  this  process  is  primarily  effective  in  in  vivo  toxicology  studies  although  other  study 
designs  can  be  included.  The  application  leads  the  abstractor  from  the  citation  data  entry 
through  the  study  materials  and  methods  and  on  to  the  clinical  effects  reported  in  each 
subject  group  exposed  to  a  given  toxicant.  The  system  is  capable  of  abstracting  papers  with 
up  to  99  different  study  designs,  each  containing  up  to  99  subject  groups  and  99  exposure 
regimens.  For  each  design-subject  group-exposure  regimen,  an  unlimited  number  of  clini¬ 
cal  findings  can  be  entered. 

The  number  of  computer-generated  monographs  developed  was  limited  due  to  person¬ 
nel  shortages.  We  were  able  to  develop  three  different  monographs  to  a  preliminary  stage. 
The  user  application  uses  data  entered  by  the  abstractor  to  create  paragraphs  describing 
each  clinical  finding  and  the  circumstances  that  created  it. 

By  end  of  the  contract,  the  Toxin  Knowledge  System  had  begun  to  show  the  promise 
that  was  proposed  initially.  Unfortxmately  it  was  not  developed  to  full  operational  status 
due  to  programming  personnel  difficulties.  The  system  was  ported  to  the  MS-DOS  com¬ 
puter  platform  for  further  use  and  development. 
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Toxin  Knowledge  System  Final  Report 

1  Staterr^nt  of  Problem 

The  production  and  use  of  toxins  against  military  and  civilian  populations  remains  a 
significant  concern.  To  counteract  an  enemy  attacking  with  a  toxin,  military  and  civil 
d^ense  personnel  need  the  knowledge  to  detect  the  toxin,  diagnose  the  effects  caused,  and 
implement  appropriate  treatn^ent.  While  the  amount  of  information  on  toxins  continues  to 
grow,  there  is  no  system  to  collect,  compile,  and  update  this  information  into  knowledge. 
Scientific  knov/ledge  can  be  defined  as  the  sum  total  of  what  is  known  about  a  topic  or  as  a 
body  of  systenuzed  facts,  information,  principles,  and  experiences  relating  to  a  singular 
topic.  Gaining  this  knowledge  is  a  difficult  and  time  consuming  process.  Updating  this 
knowledge  is  even  more  difficult 

To  complicate  the  problem,  the  toxin  knowledge  needs  vary  with  the  user.  Researchers 
studying  toxins  need  detailed,  up-to-date  information  from  the  literature  and  other  re- 
sear^  groups.  Others,  such  as  military  and  dvil  defense  health  professionals,  need  exten¬ 
sive  information  on  the  detection,  diagnosis,  and  treatment  of  toxin  related  problems. 
Military  personnel  at  risk  of  exposure  to  toxins  need  immediately  available  references 
appropriate  for  the  user's  training. 

Regardless  of  the  toxin  inf  ormation  needs,  the  factual  basis  for  this  knowledge  is  derived 
from  the  same  literature  sources.  It  would  benefit  the  different  interested  groups  if  a  single 
source  of  collected  toxin  information  could  meet  each  group's  needs.  This  source  of  toxin 
information  or  knowledge  shoidd  contain  detailed,  compr^ensive  information  but  be  able 
to  provide  each  group  with  the  specific  facts  and  details  appropriate  for  the  needs  of  the 
group. 

To  date,  the  most  common  means  of  keeping  up  with  scientific  information  merely 
provides  access  to  current  literature  though  dtalion  indexes  and  abstracting  systems. 
Citation  indexes  are  limited  to  providing  users  with  journal  article  citations  from  which  the 
original  artide  can  be  obtained.  Some  form  of  keyword-based  search  strategy  must  be  used 
to  find  the  desired  literature  dtations.  A  user  with  a  journal  dtation  will  still  have  to  find 
the  actual  artide  in  order  to  obtain  the  facts  necessary  to  add  to  his/her  knowledge.  Ota- 
tion  indexes  are  likely  the  most  important  ways  to  access  the  published  literatime  and  is  the 
foundation  of  most  other  information  systems.  Unforhuutely  dtation  indexes  are  simply 
pointers  to  the  facts  and  not  the  facts  themselves.  Abstracting  systems  build  on  the  dtation 
index  foundation  and  add  narrative  abstracts  of  the  paper.  The  primary  purpose  for  the 
abstracts  is  to  improve  the  effidency  of  selecting  joum^  artides  for  further  review.  A 
secondary  purpose  is  to  provide  facts  which  inaease  knowledge  on  the  topic.  The  amount 
of  sdentific  information  contained  in  these  abstracts  is  limited.  Usually  the  user  will  need 
to  obtain  and  review  the  original  paper  to  gain  the  knowledge  s/he  needs. 

2  The  Knowledge  Acquieition  Process 

A  sdentist  acquiring  knowledge  from  the  literature  takes  advantage  of  certain  standard 
structures  and  terminologies.  In  using  dtation  indexes  and/or  abstracting  systems,  s/he 
selects  papers  based  on  a  standard  keyword  vocabulary.  S/he  uses  the  standard  dtation 
structure  to  identify  the  papers  to  be  reviewed.  This  structure  indudes  both  the  format  of 
the  dtation  and  the  standard  abbreviations  used. 
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After  obtaining  the  desired  papers,  the  scientist  begins  to  read  the  papers  and  thereby 
uses  the  format  used  to  write  scientific  papers.  Each  discipline  has  its  own  particular 
format  and  most  papers  from  a  given  discipline  are  prepared  according  to  that  format.  The 
standard  format  facilitates  the  scientist's  identification  of  the  critical  components  of  the 
study  design  and  the  associated  results  and  conclusions. 

Frequently  the  scientist  will  sort  the  papers  by  the  study  design  used.  S/he  may  group 
the  papers  by  case  reports  and  animal  studies.  From  this  sorting,  the  scientist  may  further 
group  the  papers  by  the  materials  and  methods.  For  example,  s/he  might  group  papers  by 
dosage  regimens  to  consider  them  from  a  dose-response  perspective.  The  reader  may  have 
to  sort  the  papers  several  times  in  various  ways  in  order  to  obtain  an  understanding  of  the 
study  and  its  results. 

When  the  audiors  of  a  scientific  paper  wrote  the  paper,  their  goal  was  to  communicate 
how  their  work  was  performed  and  what  their  results  were.  They  used  "stijidard"  terms 
in  order  to  assure  that  the  reader  would  understand  what  they  did  and  saw.  This  is  espe¬ 
cially  true  with  clinical  findings  seen  as  result  of  the  study.  If  the  scientist  reading  the 
paper  is  unfamiliar  with  a  particular  term,  s/he  must  either  "translate"  it  into  a  term  s  ^he 
already  knows  or  add  this  term  to  his/her  vocabulary.  Subsequently  the  reviewer  will 
consider  the  author's  discussion  of  results.  Frequently  the  discussion  in  current  papers  will 
provide  both  a  reference  to  and  an  evaluation  of  older  papers. 

The  data  from  the  individual  papers  must  be  integrated  into  a  cohesive  form  by  the 
scientist  The  result  data  from  the  various  papers  are  considered  by  the  reviewer  as  groups 
of  results,  along  with  the  study  design,  materials  and  methods  used,  and  condusioits 
drawn  from  the  results.  The  form  that  the  scientist's  summary  may  take  is  quite  varied. 

The  end  result  can  be  a  printed  monograph  on  the  topic,  or  may  be  kept  only  in  the  mind  of 
the  sdentist. 

Unfortunately,  textual  materials,  such  as  reference  books,  monographs,  and  text  books, 
are  frequently  neglected  in  this  process.  Too  often,  the  scientist  seeks  his/her  answers  only 
in  current  literature  with  limited  success,  and  yet  part  or  all  of  the  answers  may  have  been 
published  several  years  earlier  and  summarized  in  textual  materials.  Many  times  these 
important  sources  of  information  yield  a  deeper  understanding,  especially  with  regard  to 
the  historical  development  of  an  idea  or  proc^ure.  This  information  should  be  induded 
along  with  current  journal  artides  to  provide  a  more  comprehensive  understanding. 

3  Approach  to  Probiam 

We  studied  the  knowledge  acquisition  techniques  used  by  individuals  in  different  bio¬ 
medical  disdplines.  This  analysis  revealed  common  methods  and  procedures  as  well  as 
commonly  accepted  needs  for  how  the  knowledge  should  be  made  available.  We  believed 
the  knowledge  acquisition  process  could  be  automated  to  a  significant  degree  and  that  we 
could  develop  a  systemized  method  to  extract  needed  data  about  toxins  and  compile  that 
data  into  usable,  continuously  updated  knowledge.  This  method  would  be  based  on  a 
standard  knowledge  structure,  use  standard  nomenclature  systems  and  a  structured  ab¬ 
stracting  process,  and  create  structured  monographs.  To  permit  the  user  to  interact  with 
this  knowledge  system,  a  computer  program  would  be  needed. 

We  used  a  relational  databa^  management  system  and  a  minicomputer  to  manage  the 
standard  knowledge  structure.  As  an  abstractor  read  a  journal  or  textual  information 
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source,  s/he  would  interact  with  the  database  via  a  computer  program  which  would 
present  questions  and  prompts  to  be  completed  by  the  abstractor  using  data  from  the 
papers.  The  data  would  be  stored  in  various  database  tables.  The  underlying  processes 
which  maintain  the  database,  such  as  links  between  tables,  would  be  hidden  from  the  user. 

4  Results 

4.1  Standard  Knowledge  Structure 

The  standard  knowledge  structure  for  the  Toxin  Knowledge  System  is  primarily  a  com¬ 
plex  relational  database  created  with  Informix-SQL®  relational  database  management 
software  on  a  Sequent®  minicomputer.  To  provide  access  to  this  structure  we  used 
Informix-4GL*,  a  true  fourth-generation  computer  language  for  Informix-bas<=  I  databases 
which  permitted  us  to  utilize  the  strengths  of  Informix-SQL*  for  the  general  da^  -.base 
management  process  and  have  essentially  full  control  over  the  user  interface  design. 

We  divided  the  knowledge  structure  into  four  major  parts:  citation  data,  study  design, 
results,  and  keywords-notes.  Database  tables  were  created  for  each  part.  Because  all  data 
entered  would  be  derived  from  a  scientific  publication,  the  citation  database  table  was 
considered  the  primary  entity.  The  primary  foreign  key  used  to  relate  data  from  all  tables 
was  a  citation  number  deriv^  from  the  journal,  volume,  page  number,  and  year.  In  addi¬ 
tion  each  record  in  all  data  tables  were  given  a  unique  serial  number.  Within  the  paper 
content  data  tabl^,  these  serial  numbers  were  used  as  additional  key.s  between  the  tables. 

Appendix  A  shows  a  graphical  representation  of  the  database  design  and  Appendix  B 
presents  the  details  of  the  database  design  as  text.  The  tables  that  were  created  for  nomen¬ 
clature  data  are  also  presented  in  Appendix  A  and  B. 

4.2  Standard  Nomanclatura 

Tne  standard  nomenclature  was  primarily  implemented  in  the  form  of  "lookup"  tables 
within  the  TKS  database  strucmre.  Smaller  portions  of  the  standard  nomenclature  were 
integrated  within  the  application  as  translation  functions  and  on-screen  choices.  Consider¬ 
able  programming  effort  was  needed  to  incorporate  the  standard  nomenclature  tables  in  an 
efficient  manner. 

4.2.1  Journal  Vo^bulary  Tabla 

In  order  to  assure  that  journal  abbreviations  were  consistent  and  to  reduce  the  number 
of  keystrokes  needed  to  enter  citation  data,  a  database  table  to  hold  the  journal  reference 
data  was  created.  This  table,  joumlst,  serves  as  a  journal  name  controlled  vocabulary. 

Each  journal  title  was  assigned  a  code  number  consisting  of  the  letter  "J"  foUov/ed  by  a 
sequentially  assigned  accession  number.  This  jcode  is  used  as  a  link  to  the  citation  table. 
The  journal  title  and  abbreviation  used  was  usually  consistent  with  the  National  Library  of 
Medicine  (NLM)  list  of  Journals  Indexed.  Abbreviations  and  titles  for  journals  not  found 
in  this  list  were  taken  from  the  journals  themselves. 

To  make  the  vocabulary  as  unobtrusive  as  possible,  the  application  permitted  journal 
names  and  abbreviations  to  be  added  to  the  vocabulary  as  ne^ed,  even  while  the  user  was 
putting  journal  dtadon  data  mto  the  computer.  A  program  module  to  manage  the  journal 
vocabulary  data  was  developed.  This  program  automatically  assigns  the  sequential  acces¬ 
sion  numi^  and  generates  the  code  v^ue  for  any  new  journal  added  to  the  vocabulary. 
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The  user  can  search  for  any  item  in  the  journal  vocabulary  and  update  or  delete  it  as  is 
needed. 

4.2.2  Book  Vocabulary  Table 

Similarly,  a  table  to  hold  book  reference  data  was  created  and  an  Iirformix^GL®  pro¬ 
gram  module  prepared  to  manage  this  table.  Booklst  contains  all  the  elements  necessary  to 
identify  the  specific  book.  Each  book  is  assigned  a  code  number  consisting  of  the  letter  "B" 
and  a  sequentially  assigned  accession  number.  This  code  is  used  to  link  the  book  data  to 
the  citation  table.  Book  data  is  enteied  as  needed  and  can  be  added  while  the  user  is  enter¬ 
ing  book  citation  data. 

4.2.3  Study  Intonnatlon  Tarmlnology 

As  the  structured  abstract  process  was  being  develop>ed,  the  data  used  in  pop-up  options 
on  entry  and  update  screens  for  study  design,  subject  group,  and  exposure  regimen  became 
a  controlled  vocabulary.  This  was  further  reinforced  when  the  monograph  generation 
efforts  began.  The  user  had  to  choose  the  correct  term  at  the  data  entry  time  in  order  to  get 
the  correct  term  in  the  monograph. 

A  separate  aspect  of  study  information  tenn.s  was  encountered  in  devising  a  listing  of 
keywords  to  be  used  in  the  Keywords  table.  This  listing  is  presented  in  Appendix  C. 

4.2.4  ainicai  Rndlng  ComroUad  v  pabulary 

We  hop)cd  use  an  existing  vocabu.  ry  for  clinical  findings  and  considered  three  such 
vocabularies:  the  National  Library  ot  Medicine  Medical  Subject  Headings  (MeSH),  the 
World  Health  Organization  International  Classification  of  Diseases  (ICD),  and  the  Ameri¬ 
can  College  of  Pathology  SNOMED  and  associated  American  Veterinary  Medical  Associa¬ 
tion  SNOVET.  The  MeSH  and  the  ICD  were  considered  to  have  strength  in  disease  termi¬ 
nology  but  did  not  have  die  specific  pathology  information  necessary  to  describe  clinical 
findings  in  published  papers.  Both  were  easily  understood  md  could  be  losed  with  limited 
modification  for  human  data.  Neither  system  was  considerev^  aaequate  for  describing 
clinical  findings  in  animals,  a  necessity  when  describing  the  results  of  animal  studies.  The 
ICD  had  no  specific  veterinary  terms  and  the  MeSH  had  a  very  limited  set  of  such  terms. 

SNOMED  was  human-oriented  and  inadequate  for  veterinary  or  animal-research  de¬ 
scriptions;  however,  SNOVET  had  been  designed  to  be  a  animal-oriented  superset  of 
SNOMED  and  therefore  included  terms  not  in  SNOMED.  The  SNOMED/SNOVET  combi¬ 
nation  was  determined  to  be  the  most  appropriate  Das*^  for  a  clinical  finding  vocabulary  as 
it  provided  a  broad  set  of  sperific  pathologic  terms  applicable  to  both  human  and  animal 
settings.  Although  the  structure  of  the  SNOMED  and  SNOVET  computer  tapes  were 
dissimilar,  we  merged  the  terms  into  a  spedes  independent  vocabulary. 

The  primarily  obstacle  we  had  to  overcome  in  using  the  SNOMED/SNOVET  coding 
system  was  its  multiple  axis  arrangement.  A  user  would  have  to  enter  3  to  6  code  numbers 
to  characterize  one  dimeal  finding.  We  concluded  that  this  multi-axis  approach  was  too 
awkward  and  complex  to  use.  We  attempted  to  overcome  the  multi-axis  difficulties  by 
integrating  the  various  SNOMED/SNOVET  tables  into  a  single,  more  cohesive  system. 

This  proved  to  be  ineffident  and  awkward  as  well. 

We  eventually  devised  a  two-tiered  controlled  vocabulary  arrangement.  The  first  tier 
consisted  of  a  database  table  containing  a  frequently  used  subset  of  clinical  findings  ex- 
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tracted  from  the  SNOMED/SNOVET  tables.  The  first  tier  would  also  have  a  synonym 
table  that  would  provide  a  lookup  method  for  the  first  tier  controlled  vocabulary.  If  the 
desired  clinical  finding  were  not  in  the  small  controlled  vocabulary  or  the  synonym  list,  the 
user  would  be  able  to  access  the  full  SNOMED/SNOVET  listing  in  the  second  tier.  In  this 
way,  the  usual  data  entry  process  would  work  at  acceptable  speed  and  only  occasionally 
would  the  slower,  full  SNOMED/SNOVET  access  be  needed. 

This  internally  designed  system  divided  the  vocabulary  into  Site  and  Effect  which  was 
further  divided  into  three  broad  areas:  laboratory  analysis  and  procedures,  pathologic 
changes,  and  diseases  and  signs.  For  each  clinical  finding,  the  user  would  first  select  one  of 
the  Effect  areas.  If  the  user  selected  Laboratory,  they  were  presented  with  a  menu  of 
sample  matrix  options  which  served  as  the  Site.  The  Laboratory  Effects  were  selected  from 
portions  of  the  SNOMED/SNOVET  Functions  and  Procedures  axes.  If  the  user  selected  an 
Effect  other  than  Laboratory,  the  Site  would  be  selected  using  a  modification  of  the 
SNOMED/SNOVET  Topography  axis.  The  vocabulary  for  patholr  gic  findings  was  drawn 
from  the  SNOMED/SNOVET  Morphology  axis  and  the  vocabulary  for  the  disease,  sign, 
syndrome,  and  abnormal  fiinction  terms  were  drawn  primarily  from  the  SNOMED/ 
SNOVET  Fimction  and  Disease  axes.  A  body  system  code  derived  from  the  modified 
Topography  axis  was  used  as  well. 

We  created  a  separate  SNOMEDVET  database  to  hold  the  unmodified  SNOMED  and 
SNOVET  terms.  From  this  database,  useful  terms  were  extracted  for  use  in  the  TKS  clinical 
findings  vocabularies. 

4.2.5  Chemical  Naira  Controllad  Vocahuiaiy 

The  Registry  of  Toxic  Effects  of  Chemical  Substances  (RTECS/  nrenai-^d  by  NIOSH  was 
to  serve  as  the  controlled  vocabulary  for  chemical  names.  Our  goal  was  to  have  the  RTECS 
data  on-line  as  a  look  up  system  for  the  toxic  and  therapeutic  agents  entered  in  the  expo¬ 
sure  regimen.  Unfortunately  RTECS  is  an  extremely  large  system  and  could  not  be  incor¬ 
porated  within  the  TKS  database  structure. 

We  decided  to  create  a  separate  RTECS  database  with  rudimentary  screen  access.  The 
chemical  table  contained  96,724  rows,  the  chemical  synonyms  table  contained  247,072  rows, 
and  the  toxic  effects  tables  had  229,466  rows.  The  size  of  ttiese  tables  made  on-line  func¬ 
tionality  nearly  impossible.  A  query  using  a  synonym  required  up  to  five  minutes  to 
complete.  Although  the  retrieved  data  was  useful,  the  overall  slowness  maded  the  RTECS 
unsuitable  for  the  purposes  we  intended.  Because  of  this,  we  planned  to  develop  a  sepa¬ 
rate  chemical  controlled  vocabulary  table  which  would  hold  selected  chemicals  from  the 
RTECS  files  and  other  information  sources.  As  a  smaller  table  within  the  TKS  system,  it 
would  be  more  responsive  and  could  hold  other  useful  information  such  as  the  reprint 
filing  system  information.  We  were  unable  to  complete  this  component  by  the  end  of  the 
project. 

4.3  UMr  Application 

The  user  application  is  how  the  user  interacts  with  the  underlying  Toxin  Knowledge 
System  components.  Through  the  application,  the  user  can  review,  add,  and  modify  the 
standard  nomenclature  data  tables.  It  also  guides  the  user  through  the  structured  abstract¬ 
ing  process  and  subsequent  structured  monograph  generation.  Because  the  application  is 
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essential  for  the  effective  use  of  the  Toxin  Knowledge  System,  it  was  the  focus  of  much  of 
tfie  Toxin  Knowledge  System  development. 

The  two  main  actions  of  the  application  were  to  communicate  with  tl’.e  user  and  to 
communicate  with  the  database.  Because  of  the  inheient  complex  relationships  between 
the  various  data  tables,  the  user  could  easily  make  a  mistake  in  data  entry  that  would 
drastically  impact  the  TKS  operations.  The  database  tables  relate  and  interact  in  a  myriad 
of  ways,  much  like  a  spider's  web  We  believed  the  user  should  be  able  to  use  the  applica¬ 
tion  with  limited  effort  needed  *.o  maintain  the  "spider's  web."  The  application  should 
mcike  or  break  the  connections  as  needed.  If  a  change  is  made  in  one  table  that  affects 
another  table,  the  application  should  display  the  appropriate  means  for  either  monitoring 
the  change  or  adp-iscing  the  table  data.  We  wanted  the  application  to  maintain  the  inter¬ 
table  relationships  invisibly  and  with  no  input  from  the  user.  The  application  should  also 
react  to  the  data  that  the  us  ar  enters  to  direct  the  structured  abstracting  process. 

The  application  should  use  a  combination  of  menus  and  windows  to  communicate  with 
the  user.  Informix-4GL*  provides  the  tools  to  rapidly  implement  windows  and  "ring 
menus"  (i.e..  menus  like  l^tus  1-2-3*).  Informix -4GL*  does  not  provide  for  drop-down 
and  hierarchical  menus  which  we  would  have  preferred.  As  new  functions  were  added  to 
the  application,  we  were  able  to  quickly  incorporate  them  in  to  *he  menu  structure.  When 
the  application  contained  about  75%  of  the  functions,  we  had  to  revise  the  menu  structure 
to  better  integrate  the  menu  choices  and  make  the  overall  flow  easier  to  follow.  This  revi¬ 
sion  put  similar  procedures  together.  The  menu  titles  were  revised  to  have  unique  identifi¬ 
ers,  further  facilitating  the  users  movement  within  the  system.  The  revised  menu  system  is 
depicted  in  Appendix  D.  An  example  of  the  menu  changes  was  our  putting  all  the  "Add" 
functions  under  one  menu  and  the  "Find"  functions  under  another.  While  this  was  gener¬ 
ally  less  confusing,  it  was  awkward  to  move  betw  ;en  the  "Add"  menu  and  the  "Find" 
menu,  although  this  movement  wa.s  frequently  necessary.  This  was  resolved  by  adding  a 
mechanism  to  jump  from  one  menu  to  the  other  wdthout  the  usual  maneuvering  through 
the  menu  tree. 

Some  mod’oles  make  extensive  use  of  context  sensitive  pop-up  options  to  guide  the  user. 
We  used  codes  for  ail  columns  that  would  use  the  pop-up  option  and  used  an  as-sociated 
translation  function  to  display  the  meaning  of  the  code  to  the  saeen.  Because  the  same 
translation  functions  were  used  to  convert  the  codes  for  use  in  the  monographs,  the  user 
saw  the  words  that  would  be  in  the  monograph  as  he, 'she  selected  the  most  appropriate 
pop-up  choice. 

Because  the  application  would  direct  the  flow  of  the  user's  .'nteraction,  it  was  important 
tc  communicate  to  the  user  where  they  were  within  the  application,  1  his  involved  consis¬ 
tently  labeling  the  data  entry  screens  so  that  the  casual  or  infrequent  users  could  know 
which  table  was  being  accessed  or  the  function  executed.  Similar  labels  were  placed  on  the 
menus.  A  more  significant  addition  was  the  inclusion  of  on-line  help  screens  into  the 
application  to  provide  context-sensitive  assistance  throughout  the  application. 

For  the  user  to  find  data  within  the  system,  we  utilized  "Query-by-example"  search 
strategy  in  association  with  the  data  entry  saeens.  This  would  permit  the  use  of  "wild¬ 
cards"  to  find  terms.  Once  the  user's  query  was  complete,  the  application  used  a  "Browse" 
menu  to  let  the  user  page  through  the  retrieve  information.  This  "Browse"  menu  also 
included  a  "Query-Again"  option  to  readily  permit  additional  searches.  The  "Query-by- 

11 


example"  approach  generally  retrieves  data  from  one  database  table.  This  did  not  permit 
the  user  to  see  related  data  in  other  tables.  To  resolve  this,  we  developed  and  incorporated 
a  'top-down"  qxiory  mechanism  which  allows  a  user  to  query  on  any  single  table  and 
rapidly  see  the  associated  data  in  all  other  tables.  This  mechanism  did  not  permit  cross¬ 
table  queries  but  did  allow  a  user  to  enter  search  criteria  and  find  the  needed  data.  We  also 
added  summary  fields  to  the  citation  and  paper  overview  screens  to  show  the  number  of 
records  in  each  linked  table. 

TKS  had  been  designed  with  the  primary  key  being  a  citation  number  derived  from  the 
journal,  volume,  page,  and  year.-  This  provided  a  unique  number  for  identifying  the  paper. 
A  citation  file  numter  was  added  to  the  system  for  internal  filing  purposes.  With  increased 
use,  we  found  that  the  citation  file  number  was  easier  to  work  with  than  the  citation  num¬ 
ber.  As  papers  were  entered  into  the  citation  component  of  the  system,  the  citation  niun- 
bers  were  assigned.  Users  trying  to  add  content  data  from  a  specific  paper  to  the  system 
had  a  copy  of  the  paper  in  hand  but  could  not  readily  derived  the  citation  number  from  the 
paper  alone.  To  overcome  this  we  developed  a  mechanism  for  the  user  to  enter  the  author, 
volume,  page,  and  year  information  from  the  actual  paper  and  access  detailed  information 
withiii  the  system.  This  mechanism  was  based  on  a  revision  of  the  citation  file  number 
format. 

4.4  Structured  Abstracting  Process 

The  structured  abstracting  process  uses  windowed  data  entry  screens  to  ask  the  user  for 
the  needed  information.  Dependant  on  the  information  entered,  the  application  will  gener¬ 
ate  needed  codes,  validate  the  data  entered  and  give  feedback  to  the  user,  select  the  options 
to  be  displayed  on  screen,  and  choose  the  next  screen  for  data  entry.  The  following  section 
shows  the  flow  and  background  of  entering  a  new  paper  into  the  TKS  system. 

4.4.1  Citation  Tabl« 

The  citation  of  any  piece  of  scientific  information  is  the  primary  identifier  and  as  such  is 
the  primary  entity  in  the  TKS  entity-relationship  model.  Many  citation  based  systems 
focus  only  on  journal  citations;  however,  we  found  this  to  be  a  restrictive  approach.  After 
analyzing  the  components  of  journal  and  book  citations,  we  were  able  to  identify  similar 
elements  which  could  be  extracted  to  become  the  identifying  data  for  a  given  citation.  We 
put  these  elements  into  the  citation  table  and  the  journal  or  book  specific  information 
became  a  part  of  the  journal  or  book  vocabulary.  The  citation  table  would  serve  as  the 
master  table  for  all  subsequent  data  tables.  The  citation  would  link  to  the  journal  or  book 
reference  via  the  dtsource  column.  Other  data  tables  would  link  to  the  citation  table  using 
a  citation  code  number  aeated  when  the  citation  is  first  entered  into  the  Toxin  Knowledge 
System. 

When  the  user  first  accesses  the  data  entry  screen,  a  window  opens  and  prompts  the 
user  for  the  first  author's  last  name.  Subsequently,  the  main  data  entry  screen  for  this  table 
opens  and  is  shown  below  in  Figure  1. 
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Figure  1.  Citation  Data  Entry  Screen 

At  first  the  cursor  is  in  the  Citation  Source  field  and  a  message  indicates  that  journal 
sources  and  book  sources  are  available  for  lock-up  at  the  press  of  a  function  key.  Figure  2 
shows  an  example  of  the  journal  look-up  screen.  Depending  on  the  function  key  selected, 
the  user  can  query  for  a  journal  abbreviation  or  book  title  using  wildcard  searching.  Up  to 
thirty  entries  meeting  the  search  criteria  are  displayed  in  the  window.  The  user  can  scroll 
through  these  tntries  and  select  the  desired  journal  or  book  by  pressing  the  Escape  key. 
The  look-up  window  disappears,  the  selected  journal  or  book  code  is  automatically  in¬ 
serted  into  the  Citation  Source  field,  and  the  journal  abbreviation  or  book  title  is  displayed 
for  verification.  The  user  can  elect  to  change  this  entry  by  entering  a  different  number  or 
pressing  the  look-up  function  key  again. 
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Figure  2.  Journal  Look>up  Screen 


After  the  Citation  Source  entry,  the  tiser  continues  to  enter  appropriate  data  into  the 
screen  entries.  See  Figure  3  below  for  completed  saeen.  When  all  of  the  appropriate  data 
is  entered,  s/he  pushes  the  Escape  key,  the  data  is  inserted  into  the  citation  table  in  the 
database,  and  the  author  entry  portion  is  called. 

An  indication  of  the  application's  role  in  the  structured  abstracting  process  is  seen  in  the 
generation  of  access  coding.  The  primary  access  code  was  designed  to  be  the  citation 
number  which  is  generated  by  the  application.  After  the  year  value  is  entered,  the  the 
citation  code  number  is  generated  and  put  in  the  corresponding  field.  The  format  for  the 
code  number  is  J/BSSSSS-WW-PPPPP-YYYY  where  J  or  B  indicates  whether  it  is  from  a 
journal  or  book,  SSSSS  indicates  Citation  Source  value,  WW  is  the  volume/chapter  num¬ 
ber,  PPPPP  is  the  first  page  number,  and  YYYY  is  the  year.  For  example,  a  citation  from 
Fundamental  and  Applied  Toxicology,  volume  9,  pages  5^  to  594,  published  in  1987  would 
have  the  following  citation  code  number:  JOOOOl-0009-00588-1987.  The  zero  padding  was 
required  and  managed  by  the  application  automatically.  The  citation  file  coding  system 
was  developed  to  assist  users  trying  to  add  content  data  from  a  specific  paper  to  the  sys¬ 
tem.  Generally  the  user  had  a  copy  of  the  paper  in  hand  but  could  not  readily  derived  the 
citation  number  from  the  paper  alone.  The  citation  file  number  was  automatically  gener¬ 
ated  by  the  application.  TTie  citation  file  number  format  was  AAAA.V.P.YY  where  AAAA 
is  the  fiist  four  letters  of  the  first  authors  last  name,  V  is  the  volume  number,  P  is  the  page 
number,  and  YY  is  the  last  two  digits  of  the  year. 
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Hit  Ctrl-k'  for  help. 


Figure  3.  Completed  Citation  Data  Entry  Screen 

As  more  papers  were  entered  into  the  system,  an  increasing  number  of  duplicate  papers 
were  fovmd.  We  identified  three  situations  where  duplicate  entries  arose.  One  was  a 
second  copy  of  a  previously  entered  paper.  TItis  situation  could  be  handled  by  either 
ignoring  the  second  copy  or  by  updating  the  original  entry  as  needed.  The  next  situation 
was  from  keyboarding  errors,  which  could  be  managed  by  correcting  the  erroneous  infor¬ 
mation.  The  third  and  most  difficult  situation  to  manage  were  circumstances  in  which  two 
papers  actually  have  the  same  journal  citation  information.  Examples  of  this  are  letters  to 
the  editor  or  abstracts  in  proceedings.  We  provided  for  a  sequencing  number  to  be  added 
to  the  end  of  tlie  citation  number. 
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4.4.2  Author  Table 

Immediately  after  the  Citation  data  has  been  accepted  by  the  user,  the  Author  entry 
window  appears.  Because  the  number  of  authors  varies,  we  used  a  separate  table  to  hold 
the  author  names  and  their  order  of  authorship.  Each  entry  was  joined  to  the  other  tables 
via  the  citation  code  number.  The  entry  screen  for  this  table  is  shown  in  Figure  4  below. 
The  citation  code  number  is  automatically  displayed  to  assure  correct  links  to  the  citation 
table.  The  user  enters  the  authors'  names  into  a  scrolling  entry  array.  Assuming  the  names 
are  put  into  the  system  in  order,  the  program,  will  automatic^ly  generate  the  publication 
order  number  as  the  user  puts  additional  names  into  the  array.  The  current  system  allows 
up  to  20  authors'  names  to  be  entered.  Each  author  entry  has  a  serial  number  assigned  but 
it  is  not  displayed. 
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4.4.3  Ke'^'word  Table 

Toxin- related  articles  were  entered  into  Toxin  Knowledge  System  citation  tables  before 
the  paper  content  tables  were  implemented.  If  the  users  were  to  have  effective  manage¬ 
ment  of  these  citations,  a  mechanism  other  than  the  title  had  to  be  used..  We  decided  to  add 
a  keywords  table  and  associated  keyword  list  table  to  the  system.  As  mentioned  above 
Appendix  C  contains  the  keywords  used.  We  originally  planned  to  eliminate  this  table 
when  the  Toxin  Knowledge  System  was  complete.  Late  in  the  project,  we  began  to  appreci¬ 
ate  the  simplicity  of  the  keyword  approach  and  began  to  study  ways  that  the  application 
could  automatically  create  keywords  from  the  data  entered  in  the  structured  abstracts. 

This  was  not  completed. 

After  the  user  enters  the  citation  and  author  data  as  described  above,  the  keyword  mod¬ 
ule  is  activated  to  permit  entry  of  up  to  20  keywords.  The  screen  used  to  enter  this  data  is 
shown  in  Figure  5. 
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Figure  5.  Keyword  Data  Entry  Screan 

The  data  entered  is  compared  to  a  list  of  accepted  keywords  in  the  keylist  table.  This 
table  is  used  for  verification  and  on-line  look-up.  The  interactions  between  the  keywords 
table  and  the  keylist  table  are  depicted  in  Appendix  A.  Users  can  either  input  a  code  and 
the  application  will  look  up  and  insert  the  corresponding  keyword  or  they  can  input  a 
keyword  and  the  corresponding  code  will  be  determined  md  inserted.  This  dual  mecha¬ 
nism  was  found  to  be  more  effective  than  having  only  one  mechanism.  Users  find  that 
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there  are  certain  keywords  that  are  frequently  used.  If  they  learn  the  code  for  these  words, 
three  keystrokes  produce  a  keyword  that  would  require  up  to  20  keystrokes.  Infrequently 
used  terms  might  be  remembered  as  words  but  not  as  the  associated  codes.  The  TIG  appli¬ 
cation  addresses  both  situations. 

4.4.4  Paper  Data  Processing 

After  the  citation,  author,  and  keyword  data  have  been  entered,  the  application  focuses 
on  the  paper's  content.  Because  the  interactions  of  study  design,  subject  diaracteristics, 
exposure  regimens,  and  results  are  inherently  complex,  the  database  design  for  the  data 
tables  was  complex  as  well.  The  paper  content  is  divided  into  four  larger  sections:  Paper 
Overview,  Methods  and  Materials,  Results,  and  Discussion  and  Comments. 

4.4.4. 1  Paper  Cver/iew  Section 

The  paper  overview  section  is  the  master  sectioii  for  all  content  sections  in  the  Toxin 
Knowledge  System  and  consists  of  a  single  database  table,  paperover.  The  contents  of  this 
table  are  presented  in  Appendix  B.  Appendix  A  shows  the  interactions  this  table  has  with 
the  tables  in  the  Methods  and  Materials  Section  and  the  Results  Section. 

For  each  paper  there  is  only  one  entry  in  the  paperover  table.  It  serves  as  a  foundation 
for  the  multiple  entities  in  the  ether  content  tables.  In  addition  to  the  table-to-table  linking 
information,  this  table  contahis  certain  basic  information  about  the  paper.  Both  the  stated 
purpose  of  the  paper  and  the  abstractor's  impression  of  an  implied  purpose  are  collected 
and  stored  here.  An  implied  purpose  can  frequently  give  insight  into  the  authors'  biases 
that  might  be  at  work.  This  table  also  contains  the  aim  of  the  paper  based  on  a  list  of  ac¬ 
ceptable  terms  for  this  item.  Data  entered  in  this  table  provided  the  foundation  for  applica¬ 
tion-directed  abstracted.  After  the  abstractor  indicates  the  number  of  designs  in  this  table, 
the  application  controls  how  many  study  designs  can  be  entered  in  the  Materials  and 
Methods  Section.  The  data  entiy  saecn  for  this  table  is  shown  in  Figure  6. 

The  user's  interaction  with  the  above  screen  is  straightforward.  When  a  new  citation  is 
entered  into  the  system,  the  citation  number  and  citation  file  number  are  carried  over  from 
the  citation  entry  process.  When  the  user  intends  to  add  content  data  for  a  citation  already 
in  the  system,  s/he  will  be  prompted  for  the  citation  number  or  citation  file  number  for  the 
entered  paper.  Regardless  of  the  access  point,  these  numbers  are  put  into  the  correspond¬ 
ing  fields  on  screen.  The  user  enters  the  purpose  data  and  selects  the  desired  aim  or  paper 
class  from  the  choices  available.  After  entry  of  the  code  number,  the  associated  translation 
appears  next  to  it  The  user  then  enters  the  number  of  study  designs  in  the  paper.  The 
system  supports  up  to  99  study  designs.  For  example,  if  the  paper  consists  of  a  case  report 
of  a  human  exposed  to  a  toxin  and  an  animal  study  to  replicate  the  effects  seen  in  the 
human,  there  would  be  two  study  designs  and  a  2  would  be  entered  in  the  screen  field. 
After  all  the  data  is  entered,  the  user  pushes  the  Escape  key  and  the  data  is  inserted  into  the 
database.  If  this  is  the  entry  of  a  new  citation  or  if  the  entry  for  the  number  of  designs  has 
inaeased,  the  user  will  automatically  go  to  the  study  design  screen. 
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Figura  6.  Paper  Overview  Entry  Screen 
4.4.4.2  Methods  and  Materials  Section 

In  keeping  with  the  standard  style  for  writing  scientific  papers,  the  Methods  and  Materi¬ 
als  section  contains  the  data  tables  needed  to  hold  data  about  the  various  methodologies 
and  materials  used  in  the  study.  These  tables  holu  study  design  (stdydegsi),  subject  gi’oups 
(subjgrp),  exposure  regimens  (exporegm),  and  exposure  groups  (expogrp). 

4.4.4.2.1  Study  Design 

The  data  table  stdydsgn  contaiixs  the  general  design  information,  the  controlling  tech¬ 
nique  data,  the  number  of  subject  groups  involved  in  this  design,  and  the  number  of  expo¬ 
sure  regimens  in  this  design.  This  table  is  d^cribed  in  detail  in  Appendix  B.  The  numter 
of  entries  permitted  in  this  table  is  controlled  by  the  number  of  designs  entered  in  the 
paperover  table.  The  data  entry  saeen  for  this  table  is  shown  in  Figure  7. 
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Hit  RETURN  to  begin  to  odd  data. 
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Figure  7.  Study  Design  Data  Entry  Screen 

Each  entry  is  automatically  assigned  a  serial  number  which  is  used  by  the  application  to 
link  this  table  to  the  corresponding  subject  groups,  exposure  regimens,  and  exposxure 
groups  entries.  When  the  screen  opens,  the  citation  number  and  the  citation  file  number 
are  filled  in.  The  total  number  of  designs  is  also  indicated  (passed  in  from  the  paperover 
table)  and  the  design  number  for  this  design.  In  Figiore  7,  the  entry  is  the  first  and  only 
design.  If  there  were  4  aesigns  in  the  paper,  the  entry  might  read  "Design  No.  2  of  4". 
These  values  are  maintained  by  the  application.  The  first  eiitry  that  the  user/ abstractor 
makes  the  Type  of  Study.  (See  Appendix  G.  Documentation  for  more  detailed  information 
about  the  choices  for  each  field.)  As  the  user  moves  the  cursor  through  the  entry  fields, 
pop-up  choices  appropriate  for  that  field  appear.  In  Figxire  7,  the  cursor  is  in  the  subject 
assignment  field  and  5  choices  have  appear^.  After  the  user  enters  the  code  for  a  selec¬ 
tion,  the  translated  term  appears  to  the  right  of  the  code.  For  example,  the  Type  of  Study 
code  is  "B"  which  is  translated  as  "Experiment".  When  the  user  enters  the  nr*  'ber  of 
subjects,  the  subject  group  data  entry  screen  appears.  After  all  subject  groups  have  been 
entered,  the  user  ratums  to  the  study  design  screen  to  enter  the  number  of  exposure  regi¬ 
mens.  With  the  entry  of  this  number,  the  exposure  regimen  data  entry  screen  appears  for 
entry  of  all  of  the  exposure  regimens  in  this  design.  After  all  exposure  regimens  are  en¬ 
tered,  the  user  again  returns  to  the  study  design  saeen  to  enter  additional  study  designs  as 
appropriate. 
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4. 4. 4. 2. 2  Subject  Group  Data 

The  information  about  the  subjects  in  the  study  are  stored  in  the  subjgrp  data  table. 
This  data  is  entered  using  the  screen  shown  in  Figure  8.  Pop-up  choices  are  used  in  this 
data  screen  as  well.  In  order  to  assure  consistency  in  the  data  collected,  we  added  on¬ 
screen  weight  conversion  to  change  all  subject  weights  to  kilograms.  After  the  user  enters 
the  initial  weight  value  and  units,  the  program  makes  the  necessary  conversion  and  dis¬ 
played  the  changes  on-screen.  This  provided  a  more  consistent  way  of  comparing  data  in 
the  monographs. 
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Figure  8.  Subject  Data  Entry  Screen 


4.4.4.2.3  Exposure  Regimens 

Figiire  9  shows  the  data  entry  screen  for  the  Exposure  Regimen  data  which  is  stored  in 
the  data  table  exporegm.  Like  the  Study  Design  and  Subject  Group  screens,  pop-up  choices 
and  on-screen  verification  are  extensively  used.  We  intended  for  the  exposure  regimen 
entry  process  to  utilize  the  Chemical  Controlled  Vocabulary  to  assure  that  the  correct  name 
for  the  exposure  agent  was  entered.  Because  of  the  difficulties  in  working  out  an  accept¬ 
able  controlled  vocabulary  (see  above),  this  function  could  not  be  developed. 
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FIgura  9.  Exposura  Rsgimen  Entry  Screert 
4. 4. 4.2. 4  Exposure  Group  Data 

After  the  study  design,  subject  group,  and  exposure  regimen  data  are  entered,  the  user 
must  create  the  links  between  these  information  sets.  This  data  is  stored  in  expogrp.  Al¬ 
though  the  TKS  application  manages  most  of  the  linkages  between  tables,  we  could  not 
devise  a  mechanism  to  replace  the  manual  creation  of  these  links.  The  wide  variations  in 
study  designs  precluded  making  this  automatic. 

The  purpose  of  the  expogrp  table  (described  in  Appendix  B)  is  to  hold  the  design-subject 
group-exposure  regimen  link  which  is  used  to  connect  this  information  to  the  results  data. 
In  general,  the  expogrp  consists  of  the  link  code  and  brief  descriptions  of  the  study  design, 
the  subject  group,  and  the  exposure  regimen.  The  descriptions  serve  at  least  two  purposes: 
to  give  on-screen  verification  of  this  information  when  the  results  data  are  being  entered, 
and  to  provide  this  information  as  needed  in  the  structured  monographs. 
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FIgur*  10.  Exposure  Group  Link  Entry  Screen 

After  the  last  study  design  is  completely  entered,  the  screen  in  Figure  10  is  opened.  The 
user  confirms  the  citation  number  and  is  then  presented  with  descriptions  of  all  the  study 
designs  entered  for  thi®  paper.  The  application  creates  the  descriptions  by  extracting  data 
from  the  stdydsgn  table.  After  the  user  selects  the  desired  study  design  number,  the  appli¬ 
cation  places  the  selected  study  design  description  in  the  appropriate  field  and  then  pre¬ 
sents  computer-prepared  descriptions  of  the  subjects  involved  in  the  selected  design. 
Choosing  the  subject  group  results  in  the  selected  subject  description  being  displayed, 
followed  by  presentation  of  similar  descriptions  for  all  exposure  regimens  in  this  design. 

In  Figure  10,  the  user  has  selected  design  number  1,  which  is  a  controlled  shidy  involving  3 
subject  groups  and  3  exposure  regimens.  Subject  group  1  was  selected.  The  corresponding 
description,  which  indicates  that  the  group  consisted  of  6  female  pigs  with  an  average 
weight  of  55  kg  and  were  exposed  once,  was  put  into  the  subject  group  description  field. 
The  age  of  these  pigs  was  not  presented  in  the  paper,  thus  the  N-AV  in  the  description. 

The  cursor  is  in  the  exposure  regimen  field  and  the  user  is  to  choose  between  the  three 
exposure  regimen  options  displayed  on-screen.  From  the  paper,  the  user  knows  that  group 
1  received  exposure  regimen  1  and  would  enter  this  number.  After  the  exposure  option  is 
chosen,  the  exposure-group  link  will  be  created,  which  in  this  case  would  be  Dl.Sl.El 
meaning  design  1,  group  1,  and  exposure  1.  This  number  would  be  difficult  to  use  without 
the  descriptions  stored  with  the  link. 

A  number  of  significant  features  were  developed  for  this  particular  scree^^  and  modified 
for  use  in  other  areas  of  the  application.  One  of  the  more  important  feattires  was  the  auto¬ 
matic  generation  of  the  description  by  the  application.  This  was  the  forenmner  to  the 
monograph  generation  development.  Another  feature  was  the  method  for  paging  through 
up  to  99  possibilities  on  screen.  This  permits  the  user  to  page  forwards  and  backwards  as 
needed  to  select  the  desired  dem.  This  technique  was  modified  for  use  in  adding  data  to 

23 


papers  already  abstracted  and  was  the  basis  for  the  pop-up  choices  in  the  various  paper 
content  screens. 

4.4.4.3  Results  Section 

The  Clinical  Findings  Module  was  a  pivotal  component  of  the  TKS  and  the  utility  of  the 
data  entered  :n  this  section  was  dependant  on  a  number  of  factors.  Clinical  findings  are 
reported  in  various  ways  including  text,  tables,  and  graphs.  Because  the  authors  of  a  paper 
may  report  a  wide  range  of  clinical  findings  using  different  terms,  an  extensive  controlled 
vocabulary  was  essential.  Many  different  pieces  of  information  must  be  managed  at  this 
point  in  the  data  entry  process.  The  large  amount  of  data  that  the  TKS  needed  entered 
necessitated  a  clear  and  efficient  mechanism  for  selecting  and  entering  the  data.  The  clini¬ 
cal  findings  had  to  be  correctly  linked  to  the  appropriate  study  design,  subject  group,  and 
exposijue  regimen. 

Figure  11  shows  the  initial  clinical  findings  screen  and  the  type  of  data  to  be  stored  in  the 
d infind  database  table. 


Prass  F7  or  CNTL-0  to  s««  ova i labia  Exposura  Group j 

_ _ aimCflL  FhiDINO  DflTfi  SCREEM 

Citation  Muabar:  ( 


Duration 

1  II 


1 

] 


Figur*  11.  Clinical  Findings  Data  Screen  (Initial) 

After  confirming  the  dtation  number,  the  user  must  identify  the  exposure  group  that 
showed  the  dinical  finding.  The  user  is  prompted  to  press  certain  keys  after  which  brings 
up  the  Exposure  Group  Selection  Window  as  shown  in  Figure  12.  The  user  would  the 
cursor  down  the  list  and  select  the  appropriate  group.  The  desaiptions  of  the  design, 
subjects,  and  regimen  would  be  displayed  on  saeen  for  validation. 
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Figure  12.  Clinical  Rndings  Screen  with  Exposure  Group  Selection  Window 

One  of  the  most  difficult  problems  we  faced  in  this  section  was  in  efficiently  accessing 
the  clinical  controlled  vocabulary.  We  recognized  that  the  clirucal  findings  data  could  be 
classified  into  three  broad  areas:  pathologic  changes,  laboratory  analysis  and  procedures, 
and  diseases  and  signs.  After  entering  the  exposure  group  information,  the  cursor  goes  to 
the  Clinical  Finding  Type  field.  The  user  first  indicates  the  exposme  and  subject  group  link 
for  the  c.inic<ii  signs.  The  user  then  can  choose  between  Pathology,  Laboratory,  or  Signs 
from  a  menu. 

If  the  user  chooses  Signs,  the  Body  System  selection  window  appears,  as  in  Figure  13. 
The  user  then  chooses  the  appropriate  body  system  for  the  sign  in  question  and  the  TKS 
Findings  Synonym  screen  appears  (Figxxre  14). 
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Figure  13.  Clinical  Rndings  Screen  with  Body  System  Selection  Window 

By  dividing  the  user's  approach  to  selecting  the  desired  term,  we  were  able  to  divide  the 
controlled  vocabulary  into  four  areas.  This  approach  in  conjmtction  with  our  developing  a 
two-tiered  controlled  vocabulary  arrangement  improved  the  performance  in  data  entry. 

The  first  tier  cortsists  of  a  table  of  frequently  used  dmical  findings  extracted  from  the  sec¬ 
ond  tier  SNOMED/SNOVET  tables  and  a  synonym  table  tliat  provides  a  lookup  method 
for  the  first  tier  controlled  vocabulary.  This  is  what  is  shown  in  Figure  14.  The  user  enters 
a  synonym  in  the  TKS  application  and  the  program  will  search  the  synonym  list  for  its 
presence.  If  the  desired  term  is  not  present  in  the  first  tier  vocabulary,  the  user  can  move  to 
the  second  tier  to  search  for  and  extract  the  desired  term  into  the  first  tier  if  needed.  The 
second  tier  system  is  a  modification  of  the  current  methodology  for  selecting  clinical  find¬ 
ings.  The  relationships  between  the  various  vocabulary  tables  and  the  clinical  findings 
table  are  shown  in  Appendix  A. 
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Figure  14.  TKS  Findings  Synonym  Screen  (Sign  Seiection) 

After  the  clinical  finding  is  selected  from  the  controlled  vocabulary,  the  user  returns  to 
the  Clinical  Findings  Screen  where  the  selected  body  system  and  clinical  finding  is  shown. 
The  user  then  enters  the  semiqualitative  changes,  incidence  information,  and  time  factors. 
The  completed  clinical  findings  screen  is  shown  in  Figure  15. 
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Figure  15.  Clinical  Findings  Screen  (Completed) 


If  the  user  had  chosen  Laboratory  Test  as  the  Clinical  Finding  Type,  a  slightly  different 
entry  process  is  used.  First  a  sample  matrix  menu  is  presented  (Figure  16).  The  selected 
matrix  is  used  as  the  site  in  the  clinfind  table. 
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Figure  16.  Clinical  Findings  Screen  with  Lab  Matrix  Selection  Window 

After  the  matrix  is  selected,  a  list  of  laboratory  test  categories  is  presented  as  in  Figure 
17.  This  categorization  facilitates  the  selection  of  the  actual  laboratory  test  via  a  screen 
similar  to  that  in  Figure  14. 
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Figure  17.  Clinical  Findings  Screen  with  Lab  Test  Group  Selection  Window 
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If  the  user  had  chosen  Pathology  as  the  Clinical  Finding  Type,  the  exact  site  of  the 
pathologic  lesion  would  be  identified.  This  identification  and  selection  process  would  uses 
the  Body  System  Selection  window  (Figure  13)  and  the  TKS  Site  Selection  Screen  (Figure 
18).  The  user  first  selects  the  Body  System  and  is  then  presented  with  the  organs  within  the 
selected  system.  After  the  organ  is  selected,  the  exact  sites  within  the  organ  are  presented. 
With  the  selection  of  the  specific  site,  the  site  code  and  site  description  are  inserted  into  the 
clinical  finding  screen. 
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Figure  18.  TKS  Site  Selection  Screen  for  Pathology  Findings 

4a  .4.4  Discussion  and  Comments  Section 

The  discussion  section  of  scientific  papers  was  difficult  to  manage  within  the  IKS  con¬ 
cept.  While  the  structure  of  a  scientific  study  provides  the  structure  for  much  of  a  scientific 
paper,  the  discussions  section  is  generally  freeform.  We  conceived  a  method  to  manage  the 
discussion  data  which  would  have  had  much  broader  applicability  to  the  overall  system. 
The  concept  would  have  permitted  the  inclusion  of  both  comments  about  the  paper  being 
abstracted  as  well  as  the  authors'  comments  about  a  previously  published  paper.  Authors 
of  scientific  papers  frequently  compare  their  design,  results,  and  conclusions  to  previous 
papers.  They  may  state  how  their  work  supports,  refutes,  expands,  or  explains  the  previ¬ 
ous  work.  TTie  earlier  design  or  work  may  be  criticized  or  praised.  All  of  these  comments 
combine  to  provide  a  form  of  ruixning  commentary  on  a  paper  after  it  is  published. 

We  designed  a  Comment  table  in  the  TKS  database.  Data  in  this  table  would  have 
included  the  comment  and  the  area  of  the  paper  involved.  We  had  hoped  to  have  com¬ 
ment  CTeation  accessible  at  any  entry  module  in  the  system.  By  pressing  a  function  key,  the 
comment  entry  screen  was  to  appear,  allowing  the  abstractor  to  include  their  observations 
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in  the  comments  table.  We  had  hoped  that  the  experience  we  gained  in  putting  on-line 
helps  throughout  the  application  would  have  provide  a  means  of  accessing  the  comments 
files  wherever  needed.  Unfortunately  the  programmer  responsible  for  this  area  resigned 
and  could  not  be  replaced;  thus,  this  section  was  not  completed. 

4.4.5  Cross  Table  Query  Process  for  Keywords  and  Citations 

In  the  first  year  of  the  contract  we  developed  a  query-by-example  portion  of  the  applica¬ 
tion  to  permit  screen-oriented  multi-table  queries  of  the  citation,  author,  and  keyword 
tables  This  screen  is  shown  in  Figure  19  below. 
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Figure  19.  CrosS'Tabie  Query-by-Exampie  Screen 

The  program  queries  for  entries  in  all  three  tables  which  meet  the  appropriate  search 
criteria.  The  program  concatenates  the  author  and  keyword  entries  into  character  strings 
and  displays  them  in  the  appropriate  fields  on  saeen.  Figure  20  shows  the  results  of  such  a 
query.  Using  the  menus,  the  user  can  browse  through  the  citations  and  elect  to  output  all 
or  selected  citations  to  either  a  file  or  to  a  printer.  The  output  resembles  a  list  of  biblio¬ 
graphic  citations  sorted  by  the  first  authors  last  name. 
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Ffgura  20.  Cross-Table  Query-by-Example  Results 

This  module  was  very  effective  when  searching  for  one  term  from  each  table;  however,  it 
would  not  produce  correct  results  when  more  than  one  keyword  or  author  was  entered. 
This  problem  had  two  origins.  One  is  fundamental  to  the  relational  model  in  that  a  Bool¬ 
ean  "AND"  within  a  table  gives  a  negative  search.  A  single  entry  in  a  table  cannot  two 
values.  Using  the  Informix-SQL*  query  language,  this  can  be  overcome  using  a  "UNION" 
statement  in  a  select  statement.  Unfortunately  the  Informix-4GL®  "CONSTRUCT"  state¬ 
ment,  the  standard  method  for  preparing  query-by-example  search  procedures,  did  not 
permit  the  use  of  "UNIOfJ"  within  the  query.  We  were  not  able  to  correct  this  problem  by 
the  end  of  the  contract  as  it  was  of  a  less  critical  nature  than  the  other  modules  of  the  appli¬ 
cation. 


4.5  Structured  Monograph 

The  Monograph  Generation  Module  development  was  hampered  by  delays  in  finalizing 
the  paper  content  components.  We  could  do  little  effective  work  in  this  area  with  limited 
or  incorrect  data  in  the  results  tables.  In  spite  of  the  significant  delays,  we  were  able  to 
begin  two  basic  monograph  components. 

The  Monograph  Generation  Module  consisted  of  a  paper  abstract  component,  a  generic 
toxicant  oriented  component,  and  a  bibliography  generation  component.  The  bibliography 
generation  component  permits  a  user  to  generate  a  bibliography  for  every  paper  in  "nCS,  a 
given  author,  or  a  given  generic.  This  function  is  automatically  called  to  provide  full  cita¬ 
tions  for  the  generic  toxicant  abstracts.  While  the  remaining  structured  abstracting  compo¬ 
nents  were  being  developed,  the  TKS  Library  Clerk  found  and  entered  almost  2500  citation 
into  the  TKS  system.  The  application  generated  bibliography  for  these  citations  are  pre¬ 
sented  in  Appendix  E. 
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One  monograph  component  was  the  paper  abstract  which  generates  a  monograph 
showing  the  entered  data  for  a  given  paper.  This  monograph  or  "structured  abstract" 
allows  the  user  to  compare  the  generated  abstract  and  the  original  paper.  These  abstracts 
were  used  to  identify  mechanisms  to  improve  the  monograph  program.  The  initial  work 
with  the  monograph  pointed  out  certain  areas  within  the  application  we  had  revised  to 
enter  and  maintain  appropriate  data  for  incorporation  within  the  monograph.  We  deter¬ 
mined  that  if  all  the  entered  data  were  entered  in  upper  case  and  computer  generated  text 
were  in  lower  case,  the  reader  of  a  monograph  could  easily  distinguish  the  paper  data  from 
the  application  data.  This  necessitated  revision  of  several  components  of  the  application, 
primarily  in  the  paper  content  sections.  This  also  pointed  out  several  wording  problems 
that  were  largely  the  result  of  the  translation  functions.  These  were  changed,  ^me  other 
wording  functions  were  not  easily  changed.  Sample  monographs  from  TKS  are  in  Appen¬ 
dix  F. 

The  monographs  for  generics  were  much  more  difficult  to  develop.  We  eventually 
provided  the  user  with  5  different  menu  choices,  of  which  2  were  completed.  The  first 
choice  provided  is  "System-Sign-Spedes- Dose-Study  Design".  With  this  choice,  the  appli¬ 
cation  generates  a  monograph  presenting  the  Sign  (dinical  effect)  grouped  by  body  system 
and  then  by  the  sign.  For  each  sign  reported,  a  paragraph  describing  the  severity  and 
frequency  of  occorrence  in  the  study  group.  A  description  of  the  subjects,  the  exposure 
regimen,  and  the  study  design  is  given,  followed  by  the  dtation  serial  number  in  parenthe¬ 
sis.  A  reference  list  of  papers  dted  in  the  monograph  is  at  the  end  and  arranged  ^phabeti- 
cally. 

The  second  choice  available  is  the  Total  Generic  Monograph.  This  was  conceived  to  be  a 
comprehensive  presentation  of  all  data  in  the  TKS  for  a  given  toxin.  This  monograph 
currently  presents  a  paragraph  for  each  clinical  effect  seen  in  each  paper  entered  into  the 
TKS.  This  paragraph  integrates  the  sign,  design,  subject,  and  exposure  regimen  iriorma- 
tion  into  a  generally  readable  form. 

Because  the  monograph  is  created  from  the  entered  data,  the  quality  of  the  data  entry 
process  has  major  impact  on  the  readability  and  correctness  of  the  monograph.  As  we 
developed  the  monograph  generation  module,  we  became  increasingly  aware  of  the  incon¬ 
sistency  and  omissions  in  published  papers.  This  aeated  several  problems  in  the  TKS 
design.  The  entry  of  data  was  dependant  on  the  TKS  user's  ability  to  translate  the  authors' 
statements  into  our  form  and  terminology.  In  addition,  we  needed  to  have  mechanisms  to 
manage  situations  in  which  there  was  omitted  data.  We  were  unable  to  completely  resolve 
these  issues  before  the  contract  ended. 

4.6  USAMRIlO  Personnel  Utilization  of  System 

We  anticipated  that  USAMRIID  personnel  would  utilize  the  Toxin  Knowledge  System 
on  the  Sequent  minicomputer  at  the  UI.  As  designed  an  authorized  USAMRIID  user  could 
dial-up  the  Sequent  computer  through  a  1200  baud  modem  or  attempt  ARPANet  access. 
When  the  user  logged  into  the  Sequent,  they  would  automatically  enter  a  menu-driven 
program  permitting  connection  to  the  TKS  database.  We  expect^  ARPANet  connection  to 
serve  as  the  primary  means  of  access  as  well  as  providing  electronic  mail  between  TKS  and 
USAMRIID  personnel.  The  hardware  components  to  connect  the  Sequent  to  the  University 
of  Illinois  Campus  Network  were  obtained  and  installed.  Through  this  network,  ARPANet 
connection  was  possible.  Initially  there  were  system  software  incompatibilities  that  ham- 
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pered  both  remote  logins  and  electronic  mail.  Although  these  problems  were  overcome, 
USAMRIID  personnel  experienced  performance  problems  which  prevented  ARPANet 
from  being  an  acceptable  means  for  accessing  the  TKS  database.  We  did  not  have  these 
performance  problems  when  we  accessed  other  computers  via  Internet/ ARPANet  and 
suspected  that  the  performance  problems  were  located  on  the  USAMRIID  computer  side. 

The  USAMRIID  persoimel  requested  detailed  documentation  on  the  application  so  that 
they  could  more  effectively  use  the  system.  We  prepared  the  initiai  documentation  on  the 
Sequent  but  it  was  later  moved  to  a  Macintosh  to  piermit  inclusion  of  graphics,  such  as 
screen  images  and  data  diagrams.  The  current  version  is  prepared  using  PageMaker  4.0  for 
the  Macintosh.  This  documentation  is  included  in  Appendix  G. 

4.7  Porting  TKS  To  Other  Computer  Platforms 

Although  the  Sequent  computer  is  an  ideal  platform  for  developing  Informix  applica¬ 
tions  and  maintaining  databases.  We  recognized  the  need  for  a  "personal"  version  of  the 
TKS  application,  a  version  which  one  person  would  use  for  a  more  limited  set  of  data. 
Individuals  could  benefit  by  having  their  own  journal  selections  abstracted  into  TKS.  To 
achieve  this  and  to  make  the  application  more  usable  for  USAMRIID  persoimel  we  ported 
the  TKS  application  to  the  MS-EXDS  personal  computing  platforms. 

V/e  obtained  Informix-4GL*  and  the  necessary  C  compiler  for  this  programming  envi¬ 
ronment.  Because  of  limitations  in  the  MS-EXDS  environment,  we  chose  to  use  the 
Informix-4GL  Rapid  Development  System  instead.  The  TKS  application  was  successfully 
ported  to  the  MS-EXDS  platform  using  an  IBM  PC/AT  with  2  megabytes  of  RAM  running 
the  Informix-4GL'*  Rapid  EDevelopment  System. 

5  Discussion  of  Results 

The  Toxin  Knowledge  System  was  not  fully  developed  during  this  contract.  We  experi¬ 
enced  a  number  of  setbacks,  primarily  in  programmer  support.  The  principle  investigator 
had  to  serve  as  the  data  analyst,  database  and  application  designer,  and  primary  program¬ 
mer.  The  programmer  hired  to  assist  in  this  area  had  limited  Imowledge  of  biomedical 
literature  and  life  science  research  which  proved  to  be  a  significant  deferent  in  her  contrib¬ 
uting  to  the  overall  effort.  Her  experience  in  computer  system  administration  was  very 
strong  and  her  primary  contributions  were  in  maintaining  the  computer  and  network 
operations.  In  addition,  she  left  the  project  early  and  for  the  last  12  months  of  the  project 
all  programming  and  computer  support  became  the  responsibility  of  the  principle  investi¬ 
gator.  In  retrosfject,  it  is  clear  that  the  project  needed  at  least  two  programmers  for  the  full 
leng»^  of  the  contract  and  that  at  least  one  should  have  had  some  experience  in  life  sci¬ 
ences.  In  spite  of  the  problems,  development  of  the  TKS  proceeded  and  the  results  shows 
some  of  the  promise  that  a  completed  system  would  have. 

5.1  Standard  Knowledge  Structure 

The  Standard  Knowledge  Structure  developed  for  TKS  primarily  covers  in  vivo  toxicol¬ 
ogy  testing.  It  relates  the  various  facets  of  study  design  to  the  clinical  problems  seen.  The 
structure  is  sufficently  flexible  to  permit  extensions  to  cover  other  areas,  such  as  analytical 
studies,  in  vitro  work,  and  retrospective  studies.  We  began  the  analysis  for  the  analytical 
studies  but  personnel  shortages  forced  us  to  abandon  it  for  other  more  pressing  areas. 
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The  comments  or  discussion  section  of  the  Standard  Knowledge  Structure  received 
considerable  attention,  but  was  not  implemented.  To  implement  this  section,  we  needed  to 
be  able  to  provide  ad  lib  access  to  the  comments  data  table.  This  data  table  would  need  to 
have  a  many-to-many  relationship  model,  which  is  difficult  to  execute  with  traditional 
relational  database  systems.  By  the  end  of  the  contract,  we  had  several  firm  ideas  of  how  to 
achieve  this  but  did  not  have  the  personnel  to  do  so. 

5.2  Standard  Nomenclature 

The  development  of  a  functional  species  independant  clinical  findings  vocabulary  was 
an  important  step.  The  multi-tier  approach  and  categorization  of  clinica  findings  has 
proven  successfiil.  WTiile  the  current  version  of  the  vocabulary  needs  to  be  refined  and 
synonyms  added,  it  provides  an  excellent  base  for  future  work. 

Unfortimately,  the  chemical  vocabulary  was  not  successfully  developed  in  spite  consid¬ 
erable  effort.  We  believe  that  a  multi-tier  approach  for  this  vocabulary  would  work  as  well 
but  did  not  have  the  persoimel  to  complete  tiiis  work.  The  most  promising  mechanism  to 
provide  the  chemical  vocabulary  would  have  used  an  "error  list"  of  chemicals  entered  each 
day.  As  the  abstractor  entered  agent  data,  the  application  would  compare  the  entered 
agent  against  the  vocabularies.  If  the  agent  were  in  the  vocabularies,  the  application  would 
proceed  normally.  If  the  agent  were  absent,  the  user  would  be  prompted  for  the  action  to 
take.  If  the  agent  were  misspelled  the  user  could  change  the  spelling.  If  the  agent  were  not 
in  the  vocabulary  but  should  be,  the  agent  would  be  added  but  also  put  into  the  "error  list" 
for  periodic  review.  Initial  papers  would  have  taken  much  more  time  to  enter  with  this 
approach,  but  eventually  the  vocabularies  would  contain  the  majority  of  the  needed  terms. 

Expansion  of  the  monograph  generation  functions  would  have  necessitated  additional 
changes  in  the  Study  Information  Terminology.  These  change  would  be  have  to  be  made 
to  improve  the  readiblilty  of  the  monographs,  especially  as  new  monograph  forms  were 
developed. 

5.3  User  Application 

The  user  application  works  well  for  most  situations.  Although  we  would  prefer  to  have 
drop-down  and  hierarchical  menus  instead  of  the  ring-menus  that  Informix-4GL®  pro¬ 
vides,  the  overall  fimctionality  is  excellent  Addition^  usage  would  obviously  identify 
problems  with  the  current  programming  and  new  ways  to  improve  the  users  interaction. 

5.4  Structured  Abstracting  Process 

Scientific  literature  proved  to  be  the  most  significant  obstacle  to  the  structured  abstract¬ 
ing  process,  but  the  difficulties  were  enlightening  to  the  abstractors.  The  TKS  standard 
knowledge  structure  and  corresponding  structured  abstracting  process  are  based  on  certain 
assumptions  which  frequently  were  not  true.  The  primary  assumption  is  that  the  sdentific 
papers  are  well  done.  Unfortimately,  many  authors  inadequately  describe  the  studies 
performed  and  the  results  they  obtained.  It  is  not  uncommon  for  an  author  to  use^veral 
different  study  designs  and  compare  the  results  as  if  they  were  from  a  single  design.  Po¬ 
tentially  important  information  about  the  subjects  is  frequently  omitted  from  the  papjer. 
Results  are  difficult  to  find  and/or  interpret.  The  pressure  on  the  authors  to  publish  and 
the  pressure  on  the  journal  editors  to  have  papers  publish  is  aeating  a  situation  that  truely 
needs  a  system  like  TKS. 
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The  problems  mentioned  do  not  keep  TKS  from  working  as  designed,  but  they  do  make 
abstracting  papers  into  TKS  more  time  consuming  than  it  should.  On  several  occasions, 
TKS  abstractors  would  recognize  problems  with  a  scientific  paper  while  trying  to  put  it  into 
the  system. 

Our  personal  experience  and  discussions  with  other  scientists  suggest  that  many  scien¬ 
tists  are  imable  to  fully  read  many  of  the  papers  that  they  retrieve  and  that  those  that  are 
read  are  not  being  critically  reviewed.  Many  do  not  read  the  papers  they  collect,  but 
merely  file  them  for  possible  future  use.  Some  only  read  the  abstracts  of  the  papers  which 
frequently  do  not  accurately  reflect  the  content  of  the  paper. 

A  system  like  TKS  could  provide  a  more  functional  access  to  hterture.  If  a  repository  of 
abstracted  papers  were  available,  a  researcher  could  tailor  their  information  requests  to 
study  design,  rot  just  the  title  of  the  paper.  To  do  this  however  would  necessitate  having 
abstractors  "vorking  continuously  to  maintain  the  repository  which  would  be  beneficial  but 
manpower  intensive.  This  abstracting  process  is  unlikely  to  be  automated  because  of  the 
myriad  of  ways  that  a  paper  can  be  written. 

We  still  believe  that  the  concept  of  structured  abstracting  is  valid  and  has  promise. 
Perhaps  the  realization  of  this  promise  would  be  more  likely  to  be  seen  if  researchers  were 
required  to  "write"  their  papers  in  a  structured  abstract  form.  This  could  communicate 
more  than  the  pages  of  prose  that  currently  is  used. 

5.5  Structured  Monographs 

We  had  just  begun  to  develop  the  structured  monograph  generation  modules  at  the  end 
of  the  contract.  While  the  current  output  is  not  entirely  satisfactory,  the  programs  that 
created  them  were  written  in  under  a  day.  With  additional  time  and  a  larger  number  of 
papers  entered  into  the  TKS,  the  rncnograplts  could  become  very  useful.  The  monograph 
forms  cunently  are  prose  in  nature.  We  think  that  additional  forms,  such  as  tabular  out¬ 
put,  could  provide  additional  insight  and  comparison.  A  significant  limitation  of  the 
current  system  is  in  typographic  control.  If  the  system  were  developed  only  for  UNIX® 
computers,  output  controls  using  the  text  processing  tools  such  as  "nroff"  and  "ditroff' 
could  be  incorporated  into  the  monograph.  Better  control  might  be  achieved  by  using 
PageMaker  style  flags  and  downloading  the  monograph  into  a  PageMaker  file  for  output. 

5.6  Comparison  of  this  system  with  text  retrieval  systems 

In  the  past  year,  a  number  of  advances  have  been  made  in  text  retrieval  systems  which 
would  appear  to  be  more  suitable  for  TKS  than  a  relational  database  system.  Recent  ar¬ 
ticles  in  trade  publications  have  described  these  systems  along  with  their  strenghts  and 
weaknesses.  We  think  that  text  retreival  systems  could  be  us^  to  extract  information  for 
inclusion  in  TKS,  but  that  the  structured  storage  of  data  has  more  comparative  and  evalua¬ 
tive  power  than  the  text  retrival  systems.  The  text  retrieval  systems  are  designed  to  search 
through  large  amounts  of  text  for  a  word  or  its  synonyms.  For  these  systems  to  be  most 
effective,  the  synonym  listings  must  be  modified  for  local  needs.  This  is  similar  to  the 
creation  of  a  controlled  vocabulary. 

6  Conclusions 

The  development  of  the  Toxin  Knowledge  System  was  intended  to  provide  a  tool  that 
would  facilitate  the  acquistion  and  maintenance  of  knowledge.  Tools  are  only  useful  when 
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they  are  used.  If  TKS  had  been  completed,  the  major  difficulty  would  be  the  amount  of 
time  needed  to  put  the  information  into  the  system,  yet  researchers  will  overlook  needed 
information,  accept  as  truth  the  incorrect  information  in  author's  narrative  abstracts,  and 
fail  to  compare  papers  adequately. 

While  the  limitations  of  scientific  literature  have  been  desaibed  for  decades,  few 
changes  have  been  made  in  either  the  editing  and  publication  of  the  papers  or  the  critical 
utilization  of  the  published  works.  The  burgeoning  amoimt  of  information  being  pub¬ 
lished  makes  it  unreasonable  to  expect  individual  scientists  to  manage  their  own  informa¬ 
tion  to  the  extent  needed.  While  it  is  unlikely,  it  would  appear  worthwhile  to  create  and 
establish  more  critical  information  systems  to  suppliment  the  citation  and  abstracting 
systems  currently  in  use.  Reporting  of  biomedical  research  funded  by  federal  funds  should 
include  detailed  descriptions  of  study  design  and  results  on  abstracting  forms  that  could  be 
easily  coded  into  the  these  new  information  systems.  This  could  provide  an  initial  point  for 
controlling  the  information  glut. 

The  recent  developments  in  imaging  and  text  retrieval  systems  would  appear  to  provide 
complimentary  technologies  to  the  TKS  concept.  If  articles  could  be  scanned  into  a  com¬ 
puter  and  stored  on  optical  disk  for  future  review  and  usage,  these  could  be  viewed  on 
screen  while  entering  the  data.  With  new  technologies  in  relational  database  systems,  these 
scanned  images  can  be  stored  as  a  part  of  the  relational  database. 

7  Recommendations 

TKS  is  a  needed  tool.  We  would  recommend  that  TKS  be  completed  and  expanded  to 
incorporate  new  study  designs  and  approaches.  A  central  facility  should  be  established  to 
abstract  papers  and  reports  into  the  TIG.  As  more  papers  are  entered  into  TKS,  new  mono¬ 
graph  formats  could  be  designed  to  better  communicate  the  compiled  data.  It  would  seem 
worthy  for  US,\MRnD  to  establish  new  requirements  for  the  reporting  of  biomedical 
research  to  include  detailed  descriptions  of  study  design  and  results  on  abstracting  forms 
that  could  be  easily  coded  into  the  TKS  database. 
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Appendix  A. 
Graphical  Depiction 
of 

Toxin  Knowledge  System 
Database  Design 
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Figure  23.  Citation  Data  Table  Interactions 
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Figure  24.  Paper  Content  Tables  Interactions 
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Figure  25.  Clinical  Finding  Table  and  Reference  Table  Interactions 
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Appendix  B. 
Textual  Description 
of 

Toxin  Knowledge  System 
Database  Design 


Note:  Database  table  names  are  presented  in  Helvetica  Bold  Italic  and  columns  within  the  table  are  presented  as 
Helvetica  Bold  only.  General  sections  of  the  database  are  presented  as  Helvetica  Bold  Underline. 

TKSTEST  Database 

The  TKSTEST  database  is  the  primary  TKS  database  and  contains  the  data  from  the  papers. 


Citation 

The  citation  building  block  of  the  whole  system.  Generates  a  citation  number  which  serves  as  the 
primary  connector  for  all  other  tables.  This  holds  either  journal  article  o’-  book  chapter  data. 

citnumb  -  char(25}  not  null 

The  relation  between  all  tables.  The  number  will  have  the  following  format: 
JBJBJB-WW-FPPP-YYYY  where: 

JBJBJB  =  journal  or  book  code  (joumlst  jcode  or  booklsLbcode) 

WW  =  journal  volume  number  or  book  chapter  number,  padded  with  zeros 
PPPPP  =  first  page  number,  padded  with  zeros 
YYYY  =  year  of  publication 

This  number  will  be  generated  from  data  entered  in  the  other  colunrms  in  the  citation  table. 

citfile  -  cnar(20)  not  null 

A  hling  system  number  for  the  paper.  Also  used  in  author-oriented  access  to  system.  Format  may  be 
used  for  citnumb  in  the  future.  The  format  for  this  number  is: 

AAAA.V.P.YY  where: 

AAA  A  3  first  four  letters  of  first  author's  lastname 
V  =*  volume  number 

P  »  first  page  number 

YY  » last  two  digits  of  year 

Number  is  automatically  generated  by  appliation. 

citserlai  •  serial  not  null 

serial  number  for  each  citation  entry 

cltsourca  •  char(20) 

Source  of  the  citation;  the  corresponding  joumlstjcode  or  booklstbcode 

citvol  •  char(4) 

The  journal  volume  number  or  book  chapter  number,  not  padded  with  zeros 

citpags*  char(l1) 

The  inclusive  page  numbers  'TPPPP-PPPPP",  not  padded  with  zeos 

cltdata  •  char(4) 

The  year  of  publication 

clttltls-char(230) 

The  actual  title  of  the  paper  or  chapter 

citlocats  •  ctiar(5) 

The  location  of  the  actual  paper  in  filing  systems  within  the  group 

sntrydats  •  dats 

The  date  the  paper  was  first  entered  into  the  system. 

authors 

Author  data  for  paper  or  chapter 

aucltnumb  •  char(25)  not  null 

The  link  to  dtatlonxitnumb 

aucitfll*  •  char(20) 

Link  to  dtation,cltf  ilc 

auMflal  •  saiial  not  null 

author  entry  serial  number 
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authname  •  char(50)  not  null 

The  name  of  the  author  formated  as  follows:  last  name,  space,  initials.  No  punctuation  is  to  be  used. 

authsig  •  smallint  not  null 

Publication  order  for  the  authors  names 

keywords 

This  table  is  to  permit  searching  for  unabstracted  citations  entered  into  the  system.  These  will  also  be 
used  to  select  citations  for  abstracting. 

keycltnumb  -  char(25)  not  null 

The  link  to  citationxitnumb 

keycitflla  •  char(20) 

Link  to  citatioiucitfile 

keyserial  -  serial  not  null 

keyword  serial  number 

keyword  -  char(20)  not  null 

the  keyword  describing  some  aspect  of  the  paper,  matches  the  keylist.kword 

keycode  -  char(lO) 

the  keycode  which  can  be  used  for  group  look-ups  and  is  used  to  automatically  insert  the  keyword 
when  the  code  is  entered.  This  is  linked  to  the  controlled  vocabulary  keylishkcode 


paperover 

The  purpose  for  this  table  is  to  hold  certain  basic  information  about  the  paper.  It  holds  the  number  of 
study  designs  within  the  paper  as  well  as  the  purpose  for  the  paper. 

papcitnumb  •  char(2S)  not  null 

The  link  to  ciUtionxitnumb 

papcitflla  •  char(20) 

Link  to  dtationxitfile 

papsarlal  •  iMrlal  not  null 

paper  overview  serial  number 

papstatapur  •  char(50) 

The  stated  purpose  of  the  paper.  This  is  both  an  evaluation  point  and  information  necessary  to  classify 
the  paper. 

paplmppur  •  char(50) 

The  implied  purpose  of  the  paper.  This  can  give  insight  into  biases  as  well  as  "the  real  reason"  for  the 
study. 

papalm  •  char(3) 

A  broad  term  to  describe  the  aim  of  the  study.  This  needs  further  clarification.  Will  be  used  to  control 
analytical  versus  clinical  studies  paths  for  data  entry. 

papnumdagn  •  smallint 

The  number  of  designs  in  the  paper 

stdydsgn 

The  pitirpose  for  this  table  is  to  hold  certain  basic  information  about  the  study.  It  holds  confirming 
information  on  the  number  of  groups  involved,  the  number  of  exposures  involved,  and  the  presence  or 
absense  of  controls.  There  is  a  functional  limit  of  99  designs  per  paper. 

stycitnumb  •  char(2S)  not  null 

The  link  to  citatlonaritnumb 

stycitflla  •  cbar(20) 

The  link  to  dtationxitfile 
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styserial  •  serial  not  null 

study  design  serial  number;  linked  to  sgdsgnnum,  exdsgnnum,  egdsgn 

stydsgncur  •  smaliint 

A  number  to  identify  this  design  from  others  in  the  paper.  Used  to  link  to  subjgrp,  exporegm,  and 
expogrp. 

stydsgntot  •  smaliint 

The  total  number  of  study  designs  in  the  paper.  Linked  to  paperover.papntundsgn. 

stytype  -  char(2) 

The  broad  type  of  study.  This  is  potentially  useful  in  controlling  the  abstracting  process. 

styviwit  •  char(2) 

Indication  of  whether  the  paper  describes  an  m  vivo  or  an  in  vitro  experiment. 

stycnti "  char(1) 

Flag  to  whether  controls  were  used  or  not. 

stycnticmp  •  char(2) 

The  group  comparison  information.  (Within  group,  between  groups,  combination) 

stycmpmeth  •  char(2} 

The  method  for  comparing  the  groups  regardless  of  within  or  between 

stycntimeth  •  char(2) 

Control  methodology  base  —  concurrent  vs  non-concurrent 

stycntttyp  -  char(2) 

The  type  of  control  used  for  the  respective  method 

stycntassgn  -  char(2) 

the  method  for  assigning  the  subjects  to  the  group 

stynumgrp  •  smaliint 

This  is  the  number  of  different  groups  studied 

stynumsxp  •  smaliint 

The  number  of  different  exposure  regimens  used 

subjgrp 

This  table  holds  data  about  each  group  of  subjects  in  the  shtdy.  Each  group  is  now  assigned  a  number. 
Formerly  a  letter  from  "A"  to  *Z"  was  assign^  sequentially  but  this  caused  a  number  of  problems. 
There  is  now  a  functional  limit  of  99  groups  per  study  design. 

sgcitnumb  •  char(25)  not  null 

The  link  to  citation.citnuinb 

sgssrial  •  ssriai  not  null 

subject  group  serial  number 

sgdsgnnum  -  Intsger 

The  link  to  the  identifying  serial  number  of  the  study  design,  ie.  sidydsgn.siyscriaL 

sglink  •  smaliint 

Used  to  in  association  with  the  stdydsgn.stydsgncur  and  exporegni.cxlink  to  form  cxpogrp.eglink 

sgspaciM  *  char(20) 

the  spedes  of  the  subjects  used;  not  necessarily  the  Latin  name.  I  would  prefer  to  use  English  words 
instead. 

sgbroad  •  char(20) 

The  breed,  race;  ethnic,  or  other  genetic  varitation 

sgsourca  •  char(20) 

source  of  subjects  used  in  study 

sgnumb  •  smaliint 

number  of  subject  in  group 
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sgage  -  char(4) 

The  age  of  the  subjects.  This  tvill  need  to  work  with  multiple  subjects  as  well.  Can  average  be  used? 
Should  this  and  the  units  be  incorporated  into  one  column  and  an  agerange  column  be  added? 

sgageunit  -  char(l) 

The  units  for  the  age  of  the  subjects.  This  will  need  to  work  with  multiple  subjects  as  well.  Can  average 
be  used?  Should  this  and  the  weight  be  incorporated  into  one  column  and  an  agerange  column  be 
added? 

sgagerangs  -  char(i) 

Groupings  of  ages  into  5  categories 

sgwt  >  smallfloat 

The  weight  of  the  subjects.  This  will  need  to  work  with  multiple  subjects  as  well.  Can  average  be  used? 
Should  this  and  the  units  be  incorporated  into  one  column  and  a  weightrange  column  be  added? 

sgwtunit  -  char(2) 

The  units  for  the  weight  of  the  subjects.  This  will  need  to  work  with  multiple  subjects  as  well.  Can 
average  be  used?  Should  this  and  the  weight  be  incorporated  into  one  column  and  a  weightrange 
column  be  added? 

sgwtranga  -  char(2) 

Uses  groupings  of  weight  to  allow  sorting  of  animal  weight  data 

sqht  -  char(4) 

The  height  of  the  subjects.  This  likely  to  be  only  useful  in  human  studies  when  it  will  allow  determina¬ 
tion  of  surface  area.  This  will  need  to  work  with  multiple  subjects  as  well.  Can  average  be  used? 

Should  this  and  the  units  be  incorporated  into  one  column  and  a  heightrange  column  be  added? 

Should  this  de  deleted  along  with  its  units? 

sghtunH  *  char(4) 

The  units  for  the  height  of  the  subjects.  This  will  need  to  work  with  multiple  subjects  as  well.  Can 
average  be  used?  Should  this  and  the  weight  be  incorporated  into  one  column  and  a  heightrange 
column  be  added? 

sgsax  •  char(4) 

The  sex  of  the  subject.  This  must  cover  multiple  subjects,  different  sexes,  and  neutered  animals. 

sgoccup  •  char(20) 

The  occupation  of  the  subjects;  obviously  aimed  at  human  subjects. 

sghithstat  •  char(20) 

The  health  statru  of  the  subjects.  Can  include  vaccinations,  preexisting  illnesses,  etc. 

sgtotaxpo  •  tmalifnt 

The  number  of  exposures  this  group  received  during  the  study. 

exporegm 

This  table  holds  data  about  the  exposure  regimens  that  the  subjects  will  undergo.  Each  regimen  will  be 
ass igned  a  number  between  "00'  and  "99"  and  will  be  joined  with  the  subject  group  number  to  create 
an  exposure-group  link. 

•xcHnumb  •  ehar(25)  not  null 

The  link  to  ciUtian,cltnainb 

•xMriai  •  Milal  not  null 

exposure  regimen  serial  number 

•xdsgnnum  -  Intogor 

The  link  to  the  identifying  aerial  number  of  the  study  design,  ie.  sidydsgn.siyserial. 

axiink  •  smalllm 

The  link  to  expogrp.eglink,  numbers  "00"  to  "99".  Need  to  work  out  mechanism  to  handle  treatment  as 
well. 

•xpurpoM  -  char(3) 

The  purpose  of  the  exposure.  For  example,  (oxidty  or  treatment. 
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exagent  -  char(40) 

Agent  in  exposure  regimen 

exdose  -  char(5) 

Dose  of  agent  used  (no  units) 

exdoseunit  -  char(6) 

Units  of  dose  administered 

exformui  -  char(2) 

Formulation  of  the  agent  used  in  the  regimen.  An  abbreviation  of  the  formulation  will  be  used  and  an 
acceptable  list  of  abbreviations  will  be  maintained. 

exroute  -  char(2) 

Route  of  administering  the  agent  in  question.  An  abbreviation  of  the  routes  will  be  used  and  a  list  of 
acceptable  abbreviations  will  be  maintained. 

exinterval  -  char(6) 

The  interval  between  multiple  exposures,  eg.  every  4  hours.  This  will  need  some  mechanism  to  handle 
irratic  exposures. 

exduration  -  char(iO) 

The  duration  of  exposiue  to  iticlude  both  duration  of  contact  as  well  as  number  of  doses  received. 

exadmintnath  -  char(20) 

The  method  of  administering  the  agent  to  the  subjects.  Not  to  be  coidiised  with  route.  Example;  slow 
IV  via  pump.  IV  is  the  route,  the  rest  part  of  administration  method. 

exevaltima  -  char(20) 

The  time  for  evaluation;  can  be  interval  of  evaluation  if  needed.  This  particular  item  may  be  better 
maintained  in  another  table,  such  as  study  design.. 


expogrp 

This  table  holds  the  linki  and  brief  description  of  the  group  and  exposure  regimen.  This  will  be  used  to 
link  lesults  to  the  subjects  and  regimetts. 

egcttnumb  -  char(25)  not  null 

The  link  to  citationxitnumb 

egsotlal  •  eaHal  net  null 

exposure  group  serial  number 

«gtotnuni  >  wnallint 

The  total  number  of  exposure  group  links  that  have  been  made  for  this  design.  1$  this  column  really 

meded? 

egllnk-char(ii) 

This  will  be  used  to  liitk  the  subject  gixmp  and  exposure  regimen  of  a  study  design  to  a  given  result. 
The  format  of  this  number  is; 

D(i.as,Ee  where: 

d  » the  current  design  number  (stdydagn.stydsgncur) 
s  s  the  current  subject  group  numlw  (subjgrp.sglink) 
c  >  thecurrent  exposure  regimen  number  (exporegni.exlink) 

This  will  be  used  as  the  value  of  clinfindxfcglabel 

•gdsgn  —  Integer 

Direct  liitk  to  sldydsgn.styseriaL 

egdsgnlabel  —  stnallint 

The  value  of  stdyd  r  stydsgncur;  used  to  create  the  eglink. 

egdsgndsc  -  char(60) 

Brief  description  of  the  study  design.  This  is  used  to  confirm  on  screen  the  design  data  when  associated 
result  '  tta  is  entered.  This  should  be  generated  by  the  compter  and  inserted  when  the  user  selects  the 
stu  ,  '  design  data. 

•gsubg-  li}i«g«r 

Direct  link  to  subjgrp.sgseiial. 
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egsubglabel  —  smallint 

The  value  of  subjgrp.sglink;  used  to  create  the  eglink. 

egsubgdsc  -  char(60) 

Brief  description  of  the  subject  group.  This  is  used  to  confirm  on  screen  the  group  data  when  associated 
result  data  is  entered.  This  should  be  generated  by  the  computer  and  insert^  when  the  user  selects  the 
exposure  regimen  data. 

agexpo  —  integer 

EHrect  link  to  exporegm.exserial. 

egexpolabel  —  smallint 

The  value  of  exporegm.exlink;  used  to  create  the  eglink. 

egexpodsc  -  char(60) 

Brief  dracription  of  the  exposure  regimen.  This  is  used  to  confirm  on  screen  the  exposure  data  when 
associated  result  data  is  entered.  This  should  be  generated  by  the  computer  and  inserted  when  the  user 
selects  the  exposure  regimen  data. 

Rgstilta  dati 

The  results  tables  need  to  manage  repeated  values,  lab  data,  and  be  more  easily  accessed. 

cUnfInd 

cfcitnumb  -  char(25)  not  null 

The  link  to  dtationxitnumb 

cfserlal  -  ssrlal  not  null 

serial  number  for  clinical  Endings 

ctaglink  •  Intagar 

This  links  to  cxpogrp.cgserial 

cfaglabal*char(ll) 

This  links  to  cxpogrp.cgUnk 

cftypa  •  chaitl) 

Whether  the  finding  is  a  lab  test,  morphologic  change,  or  sign/symptom/disease.  Used  to  direct 
abstracting  flow. 

cfaitacoda  •  ehar(Q) 

Link  to  tkssltc^iucodc  which  will  in  turn  is  linked  to  the  associated  site  of  the  clinical  finding. 

cfsita  —  char(70) 

The  anatoDtkai  site  of  the  clinical  finding.  Linked  to  the  tkssit«.locatcname  via  the  tkssite.sitecode. 

cfflndcoda  —  char(8) 

Link  to  Iksfinddindcode  which  will  in  turn  is  linked  to  the  associated  the  clinical  finding. 

cffinding  —  char(70) 

The  clinical  finding  from  the  tksf  inddindienn. 

cfchanga  —  char(10) 

The  type  of  change  which  occurred.  Uses  the  SNOMED  fuctiona]  change  codes  to  insert  the  appropri¬ 
ate  terms  in  this  column.  This  needs  to  be  reduced  to  a  single  digit  code  and  use  translation  functions 
to  generate. 

cfaawalua  •  char(8) 

'The  severity  of  the  clinical  finding.  Estimated  severity  in  non-lab  values  (1^  to  3-t-).  For  lab  values,  this 
is  the  specific  lab  finding. 

cfs«vunlt«  •  char(8) 

The  units  used  in  the  lab  value  from  cfsewalue. 

cffraq  •  char(6) 

The  frequency  of  the  finding  in  the  group.  Must  resolve  whether  this  should  hold  both  numerator  and 
denomiiutor  or  just  the  numerator. 
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cfonset  •  char(iO) 

The  time  to  onset  in  hours  from  the  time  of  exposure. 

cfduration  -  char(lO) 

The  duration  of  the  clinical  finding  from  time  of  onset  to  termination  of  the  observation. 

Discussion  data 
Reference  data 
Evaluation  data 


tkscomment 

cocitnumb  -  char(25}  not  null 

The  link  *o  citaiionxitnumb 

cocitfiie  —  char(20) 

Link  to  dUtioRxitfilc 

cosarial  •  sarlai  not  null 

comment  serial  number 

cotabnama  ->  char(20) 

The  name  of  the  table  holding  the  data  being  commented  on. 

cocolnama  ->  char(20) 

The  name  of  the  column  holding  the  data  being  commented  on. 

corownumb  —  Intagar 

The  row  number  of  the  row  holding  the  data  being  commented  on. 

cotaxt  •  char(300) 

Comments  that  the  abstractor  made  about  the  paper.  Could  also  be  used  for  comments  from  the 
discussion  section  of  the  paper  being  reviewed.  May  be  comments  made  by  one  author  about  the 
contents  of  another  paper. 

corafcrflla  ehar(20) 

The  source  of  the  comment: 
the  TKS  abstractor 
link  to  the  author  of  this  paper 
link  to  the  author  of  another  paper 

Yflcabulary  Data 


Journlst 

The  purpose  of  this  table  is  to  provide  a  controlled  listing  of  journals  to  be  used  in  the  citation  process. 
This  will  permit  journals  and  book  citations  to  be  entered  in  a  similar  fashion  with  the  unique  aspects  of 
each  maintained  in  their  repsective  tables. 

jaquis  •  Mrtal 

Serially  assigned  number  for  each  journal  in  the  system 

jcod«  •  chart20) 

A  unique  code  for  each  jotimal  in  system  composed  of  '7'  and  the  jacquis  number.  While  this  number 
is  20  characters  long  in  the  database  table,  only  6  characters  are  actually  used.  The  20  characters  are 
necessary  to  join  the  serial  table  and  and  the together. 

jnama  •  char(l20} 

The  exact  name  of  the  jouimal.  Most  are  taken  from  the  List  of  loumals  Indexed  by  NLM. 

jabrv  •  char(50) 

Journal  abbreviation,  generally  taken  from  List  of  loumals  Indexed  by  NLM.  These  will  be  used  in  the 
reference  listings  and  to  display  on  screen  when  a  journal  code  is  entered  in  the  citation  table. 
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bookist 


The  purpose  of  this  table  is  to  provide  a  controlled  listing  of  books  to  be  used  in  the  citation  process. 
This  will  pjermit  journals  and  book  citations  to  be  entered  in  a  similar  fashion  with  the  unique  asp>ects  of 
each  maintained  in  their  repsective  tables. 

bacquis  -  serial 

Serially  assigned  number  for  each  book  in  the  system 

bcoda  •  char(20) 

A  unique  code  for  each  book  in  system  composed  of  "B"  and  the  bacquis  number.  While  this  number 
is  20  characters  long  in  the  database  table,  only  b  characters  are  actiially  used.  The  20  characters  are 
necessary  to  join  the  serial  table  and  and  the  "B"  together. 

bnamo  •  char(60) 

The  actual  title  of  the  book 

bedno  •  char(2) 

The  edition  number  of  the  book 

bvoi  -  char(2) 

The  volume  number  of  the  book 

bdate '  char(4) 

The  year  of  the  book's  publication:  should  be  edition  specific. 

bpub  -  char<20) 

Publisher  of  this  edition  of  the  book 

bpubplaca  -  char(20) 

Place  of  publication  of  this  edition 

beditor  •  chaitso) 

The  editors  of  this  edition  of  the  book  or  the  authoKs)  if  not  an  edited  work.  This  is  a  simple  string  and 
is  not  intended  to  do  any  more  than  complete  the  citation  in  a  bibliography,  etc. 

bisbn  •  char(20) 

The  is  the  ISBN  number  for  the  book.  This  very  well  may  be  dropped  in  the  future. 

keyUst 

Ihe  purpose  of  this  table  is  to  provide  a  controlled  vocabulary  for  keyword  entty  into  the  system 

kcoda  •  char(iO) 

Code  number  for  linking  the  keyword.  User  can  enter  a  kcode  and  the  kword  will  pop  up  on  screen. 
This  can  also  be  used  to  qtiery  for  a  group  of  keywords  of  the  same  group. 

kword  •  char(20) 

The  controlled  keyword  vocabulary.  These  are  arranged  by  group. 

tkssite 

This  Ble  holds  the  basic  topography  information  for  showing  the  site  of  the  clitUcal  finding.  Modified 
information  from  SNOMED/SNOVET  with  our  enhancements. 

altacoda  —  cbar(6) 

Code  used  to  link  the  anatomic  site  to  the  clinical  finding.  Composed  of  a  system  code  (A  to  Z)  and  a 
location  code  (digits  3  to  6  of  SNOMED/SNOVET  topography  number) 

fiyttamcode  •—  ch«r(1 ) 

Alphabetical  value  used  in  site  code. 

systamnam*  —  cha^SO) 

Internal  s^-stem  name  plus  SNOMED/SNOVET  system  name  when  needed 

organcoda  —  char(2} 

Code  representing  the  organ  or  organ  group.  Uses  the  SNCMED  two  character  code. 

organnama  —  char(60) 

Name  of  the  organ  or  organ  group.  Uses  the  SNOMED  name. 
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locatecoda  —  char(5) 

Code  representing  the  specific  site  of  the  lesion.  This  is  usually  a  subdivision  of  the  organ  or  organ 
group.  Uses  digits  3  to  5  of  the  SNOMED  topographic  code. 

locatenama  —  char(60) 

The  name  of  the  specific  organ  or  organ  group  site.  Uses  the  SNOMED  name.  Many  are  too  long  and 
maybe  too  specific. 

snotopnum  —  char(8) 

The  SNOMED/SNOVET  coding  number. 

morphlst 

The  purpose  of  this  table  is  to  provide  a  smaller,  more  manageable,  aantrolled  vocabulary  for 
morphologic  findings.  This  table  consists  primarily  of  SNOMED/SNOVET  morphology  findings. 

morphnum  char(6} 

Code  number  linked  to  morphsynlst.morphcode 

morphterm  char(60) 

The  TKS  controlled  vocabulary  term  for  morphologic  finding. 

morphdef  char(65) 

The  TKS  definition  for  the  morphologic  finding 

morphsnocd*  char(8) 

The  SNOMED/SNOVET  code  number  for  the  term  in  the  SNOMEDVET  database. 

morphsnotrm  char(65) 

The  SNOMED/SNOVET  tenn  in  the  SNOMEDVET  database. 

morphsynist 

morphcod*  ch«r(6) 

Code  number  linked  to  morphlstmarphnum 

morphsyn  ctiar(60) 

Synonym.'  for  the  corresponding  morphlsLmorphttmi 

labist 

laPnum  ctwtO) 

Code  number  linked  to  Ubsynlst.uibcode 

labtann  ch«r(60) 

The  TKS  controlled  vocabulary  term  for  the  labortory  test/finding  or  procedure. 

labdcf  char(65) 

The  TKS  definition  of  the  controlled  vocabulary  term  for  the  labortory  test/ finding  or  procedure, 

labsnocda  char(8) 

The  SNOMED/SNOVET  code  number  for  the  term  in  the  SNOMEDVET  dat^baae. 

labtnotrm  chartSS) 

The  SNOMED/SNOVET  term  in  the  SNOMEDVET  daubase. 

labsynist 

labcod*  ch«r(6) 

Code  number  llidted  to  tablsiJabnum 

labtynsya  ctiartl) 

Code  letter  for  the  laboratory  grouping 

fabsyn  char(60) 

Synonyms  for  the  corresponding  lablst.Iablerm 
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signlst 

signnum  char(6) 

Code  number  linked  to  signsynlst^igncode 

Sign  char(60) 

The  TKS  controlled  vocabulary  term  for  the  disease,  clinical  finding,  sign,  or  syndrome. 

systemcod0Char(l) 

The  TKS  code  for  the  body  system  primarily  involved.  Related  to  tkasite-systemcode. 

systemname  char(30) 

The  TKS  name  for  the  body  system  primarily  involved.  Related  to  tkasite-systemname. 

signdef  char(65' 

The  TKS  definition  of  the  controlled  vocabulary  term  for  the  disease,  clinical  finding,  sign,  or  .syndrome. 

snocode  cnar(8) 

The  SNOMED/SNOVET  code  number  for  the  term  in  the  SNOMEDVET  database. 

snotemi  char(65) 

The  SNOMED/SNOVEl'  term  in  the  SNOMEDVET  database. 

signsynlst 

signcodo  char(6) 

Code  number  linked  to  signUt.signnunt 

slgnsynsyiichar(l) 

The  code  for  the  body  system 

signsyn  char(60) 

Synonyms  for  the  corresponding  signlsLsignterm 

SNOMEDVET  Database 

The  SNOMEDVET  database  contains  the  compiled  SNOMED  and  SNOVET  terms  in  a  relational  database  form.  This 
database  was  used  to  extract  needed  clinical  finding  vocabulary  terms  for  the  TKSTEST  database. 

TQPQgrsphy 

snotopograph 
topognum  •  char(8) 
topogterm  •  char(lOO) 

Functiona 

snotuncUon 

functnum  •  char(8) 
functtsrm  •  char(lOO) 

Diseases 

SnodlSBBSB 

disMMnum  -  char(8) 
diMasetcrm  •  char(iOO) 
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Appendix  C. 

Keywords  Available  for  Use  in 
Toxin  Knowledge  System 


Mycotoxins 

Specie: 

AOl 

OCHRATOXIN 

COl 

BOV  DAIRY 

A02 

HT-2 

C02 

RAT 

A03 

T-2 

C03 

MOUSE 

A04 

AFLATOXIN 

C04 

BOV  BEEF 

AOS 

T-2  TRIOL 

COS 

SWINE 

A06 

DAS 

C06 

SHEEP 

A07 

OTH  NONTRICHS 

C07 

BOV 

AOS 

T-2TETRAOL 

COS 

HUMAN 

A09 

DON 

C09 

MONKEY 

AlO 

MULTI  MYCO 

CIO 

DOG 

All 

3- ACETYL  DON 

Cll 

HORSE 

A12 

NIV 

C12 

CAT 

A13 

MAS 

C13 

HAMSTER 

A14 

NEOSOLANIOL 

C14 

RABBIT 

A15 

ZEN 

CIS 

FISH 

A16 

DEEPOXY 

C16 

GPIG 

A17 

FUSARENON 

C17 

CHICKEN 

A18 

MACRO 

CIS 

TURKEY 

A19 

VERRUCARIN  A 

C19 

DUCK 

A20 

CYANIDE 

C20 

PIGEON 

A21 

A23 

A24 

A25 

ZOL 

ACETYL  T-2 

OTH  TRICKS 

RORIDIN 

C21 

DOl 

D02 

OTHER  SPECIES 

Gender 

MALE 

FEMALE 

BOl 

B02 

Military  Issue 

YELLOW  RAIN 

CHEM  WAR 

DOS 

NEUTERED 
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Age 

Chemical  Techniques 

EOl 

FETUS 

101 

DERIV 

E02 

NEONATE 

102 

FIFB 

EOS 

YOUNG 

103 

TMS 

E04 

MIDAGE 

104 

TFA 

EOS 

AGED 

105 

PFP 

E06 

EGG 

Extractants 

E07 

LARVAE 

JOl 

ACETONE 

Sources/Form 

J02 

WATER 

FOl 

MOLDY  FEED 

JOS 

SALINE 

F02 

FUNGUS 

J04 

CHLOROFORM 

F03 

CRUDE  EXTRACTS 

JOS 

CAR  ETHANOL 

F04 

CRYSTAL 

J06 

ETHYL  ACET 

F05 

AEROSOL 

J07 

PROP  GLY 

Toxicity  Results 

JOS 

CAR  NONE 

GOl 

LO 

J09 

METHANOL 

G02 

LD50 

Jio 

CARDMSO 

G03 

>LD50<LD100 

Jll 

CAR  OTHER 

G04 

>LD100 

Sample  Matrix 

G05 

LDIOO 

KOI 

SAMPLE  MATRIX 

G06 

LC50 

K02 

FEED 

Route  of  Administration 

K03 

FOOD 

HOI 

IM 

K04 

PRODUCTION 

H02 

IV 

K05 

URINE 

H03 

IP 

K06 

BLOOD 

H04 

ORAL  GAVAGE 

K07 

MILK 

H05 

TOPICAL 

K08 

BILE 

H06 

ORAL  DIET 

K09 

FECES 

H07 

SUBQ 

KIO 

RUMEN  CONT 

H08 

INTRATRACH 

Kll 

SERUM 

H09 

INTRADER 

K12 

GRAIN 

HIO 

GASTRIC  INTUBATION 

K13 

FORAGES 

Hll 

MULTI  DOSE 

K14 

CEREAL 

H12 

INHAL 

K15 

STRAW 

K16 

CORN 

K17 

OATS 

K18 

BARLEY 
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K19  MILLET 
K20  SOYBEAN 
K21  HULLS 
K22  RICE 
K23  WHEAT 
K24  SORGHUM 
K25  MEDIA 
K26  FUNGAL 
K27  PLASMA 
K28  OTHER  MATRIX 

Chemical  Info 

LOl  TOXIN  CHAR 
L02  STRUCT  ID 
L03  SYNTHESIS 
L04  DEGRAD 
LOS  DETOX 

Analytical 

MOl  ANAL 
M02  ANALGLC 
M03  BIOAS 
M04  NMR 
M05  RIA 
M06  ANAL  ENZ 
M07  PURinC 
M08  TLC 
M09  MS 
MIO  HPLC 
Mil  GS/MS 
M12  AUTORAD 
M13  FLUOR 
M14  RADIOLABEL 
MIS  CAPGC 
M16  TISSCULT 
M17  SPECTRO 
M18  CELL-FREE  SYS 


Mechanism  of  Action 

NOl  MECH  ACTION 
N02  PROT  SYN 
NOS  DNA  SYN 
N04  ENERG  MET 
NOS  MEMB  EFFEC 
N06  ENZ  INHIB 
N07  ANTI  MITOT 
N08  CHELATE 
N09  OTHER  MECH 

Toxicokinetics 

OOl  ABSORB 
002  DISTRI 
003  EXCRE 
004  BOD  BURD 
OOS  nSS  RESID 
006  BOD  FLU  RESID 

Metabolism 

POl  METAB 
P02  METAB  IN  VITRO 
PCS  METAB  IN  VIVO 
P04  DEEPOXY  fvIETABS 
P05  CONJUMETABS 

Toxicity  Info 

QOl  TOX 
Q02  TOX  IN  VITRO 
003  TOX  IN  VIVO 
Q04  REPRO 
QOS  PLACENTA 
Q06  UTERUS 
Q07  FETUS-TOX 
Q08  TESTES 
Q09  OVARIES 
QIO  TERATO 
Qll  CARON 
Q12  GUT  FLORA 
Q13  ABORT 
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Q14 

MUTAG 

R27 

KIDFUNC 

Q15 

SURV  RATE 

R28 

PROSTAGL 

Q16 

SURV  TIME 

R29 

EDEMA 

Q17 

GROWTH 

R30 

RESPFUNC 

Q18 

FEED  REFUS 

R31 

BLOOD  PRES 

Q19 

FEED  EFHC 

R32 

CLOTTING 

Q20 

FEED  CONSUMP 

R33 

LIVFUNC 

Q21 

AOJTE 

R34 

CARDIAC  OUTPUT 

Q22 

CHRONIC 

R35 

DEATH 

Q23 

WATER  CONSUMP 

R36 

HEART  RATE 

Clinical  Findings 

R37 

PREGNANT 

ROl 

PHYSIOLOGY 

R38 

TREMORS 

R02 

CLIN  SIGNS 

Gross  Pathology 

R03 

SHOCK 

SOI 

GROSS 

R04 

COLD  EXTREM 

S02 

PATH  HISTO 

R05 

BLOOD  FLOW 

S03 

PATH  BODY 
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Appendix  D. 
Graphical  Depiction 
of 

Toxin  Knowledge  System 
Application  Menu  Structure 


Figure  26.  Main  Menu  of  Toxin  Knowledge  System  Application 
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AbstractMgt  Choice  from  the  Main  Menu 


Figure  28.  Find  Citation  Data  Submenus  of  the  AbstractMgt  Choice 

from  the  Main  Menu 
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Figure  29.  Find  Paper-Content  Submenus  of  the  AbstractMgt  Choice 

from  the  Main  Menu 
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Figurt  30.  Find  Kaywords-Notes  Submenus  of  the  AbstractMgt  Choice 

from  the  Main  Menu 
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Query- Afeio  M  QuQry-A|am 


Figure  34.  Submenus  for  the  Monographs  Choice  from  the  Main  Menu 
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Structured  Abstracts 


TKS  Citation  code;  JOOl  17-0178-00274-1981 

File  code:  ANGS.  178.274  81  in  the  following  files:  LP 

(1883)  Angsubhakom  S,  Poomvises  P,  Romruen  K,  Newberne  PM:  AFLATOXICOSIS  IN 
HORSES,  J  AM  VET  MED  ASSOC  178:274-278,1981 

Keywords  Assigned:  horse,  aflatoxin,  kid  func,  diag,  feed,  anal,  corn,  hemmor,  death,  din 
signs,  heart,  fluids,  rice,  rbc,  serum,  soybean 

ABSTRACT 

Overview: 

CASE  REPORT  paper  with  stated  purpose  of  DOCUMENT  ARATOXLN  POISONING  IN 
HORSES  reporting  on  2  design(s). 

Design  Information: 

Results:  Design-Oriented 

Design:  1  GRP,  1  EXP,  CNTL 

Subjects:  12  HORSE,  Age:  <1  Y,  Wt:  KG,  Sex:  M,  EXP 
Exposure  Regimen:  AFLATOXIN,  216  UG/KG,  PO,  given  x  FEW  DAYS 
UNK  SEVERITY  PETECHIA  in  HEART,  NOS  seen  in  NOT  ST  subjects 

UNK  SEVERITY  MYOCARDIAL  NECROSIS  SYNDROME,  NOS  in  MY0C.ARDIU>4  NOS 
seen  in  NOT  S  subjects  with  onset  of  UNK  hour(s) 

UNK  SEVERITY  HEMORRHAGIC  ENTERITIS  (T-64000)  in  GASTROINTESTINAL 
TRACT,  NOS  seen  in  UNK  subjects 

UNK  SEVERITY  BILE  STASIS  in  LIVER,  NOS  seen  in  NOT  ST  subjects 

UNK  SEVERITY  INFILTRATION,  FATTY  in  UVER,  NOS  se«n  in  UNK  subjects 

UNK  SEVERITY  INFLAMMATORY  NECROSIS,  NOS  in  UVER,  NOS  seen  in  NOT  ST 
subjects 

UNK  SEVERITY  HYPERPLASIA,  NOS  in  INTR-AHEPATIC  BILE  DUCT  seen  in  NOT  ST 
subjects 

UTMK  SEVERITY  NECROSIS,  NOS  in  CENTRILOBULAR  REGION  OF  LIVER  seen  in  NOT 
ST  subjects  with  onset  of  NOT  ST  hour(s) 

UNK  SEVERITY  HBROSIS,  NOS  in  PERIPHERAL  LOBULAR  REGION  OF  LIVER  seen  in 
NOT  ST  subjects 


SEVERITY  EDEMA,  NOS  m  IGDNEY,  NOS  seen  in  NOT  ST  subjects 
L'NK  SEVERITY  PALE  RED  COLOR  in  KIDNEY,  NOS  seen  in  UNK  subjects 
LT.K  SEVERITY  DEATH,  NOS  m  seen  in  12/?  subjects  with  onset  of  FEW  DAYS  hour(s) 


Desigr^;  GRP,  EXP,  CNTL 
No  results  reported  foi  this  Exposure  Group. 

Subjects:  2  HORSE.  Age:  UNTC  t ,  Wt:  KG,  Sex:  UNK,  EXP 
Exposure  Regimen:  PRESUMABLY  NO  AFLATO,  ,  PO,  given  x  UNK 
No  results  reported  for  this  Exposure  Group. 
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TKS  Citation  c=  ee;  J00005-0049-004S2-1988 
File  code:  FL-\iv  -  49  452.88  in  the  following  tiles;  P 

(2556)  Harvev  RB,  '■  luff  WE,  Kubena  LF.  Corner  DE,  Phillips  TD;  PROGRESSION  OF 
.AFLATOXICOSIS  L\  CROWING  BARROWS,  WM  J  VET  RES  49:482-487,1988 

Keywords  Assigned;  ailatoxin,  pliv,  serum,  pthymus,  phone  marrow,  prof  syn,  feed,  g  pig, 
pregnant,  rat,  hied  etfic,  feed  con.sump,  don,  zen,  ochratuAin,  gs/ms,  sem,  anal,  swine,  aged 

ABS:''N4CT 

Ov:,.  ;-v*ew; 

P  . ;  HR-TO.XICrrY  paper  with  stated  purpose  of  rATFIOClENtSlS  OF  AFLATOXICOSLS 
L\  CROW.  B/JiROWS  and  implied  purpose  of  CLINICAL  DIAGNOSIS  OF 
rLATOXICOSIS  rep>orting  on  1  Jesignis). 

Design  Information: 

Results:  Design-Ohented 

Design.  5  GRP,  5  EXP,  \  CNTI. 

Subjects  5  PIG,  Age:  6  W,  Wt;  ,  2  KG,  Sex:  C,  28  EXP 

Exposure  Regimen:  NONE,  CI-FAN  FEED,  0  MG/KG,  PO,  given  CFiRONI  x  28  D 
UNK  SEVERITY  NORMAL  CONDITION  m  BODY  AS  A  WHOLE  seen  in  5/5  subjects 

Subjects:  5  PIG,  Age:  6  W,  Wt:  12  KG,  Sex:  C,  28  EXP 
Exposure  Regimen:  AFLA TOXIN,  1  MG /KG,  PO,  given  CHRON  x  28  D 
UNK  SEVERITY  NORMAL  CONDH  ION  in  5<  )DY  /VS  A  WHOLE  -ten  m  5/5  subjects 

Subjects:  5  PIG,  Age:  6  W,  Wt;  12  KG,  Sex;  C.  28  E:<P 
Exposure  Regimen;  AfLATOXLN,  2  MG/KG,  PO,  given  CHRON  x  28  D 
UNK  SEVERITY  NORMAL  CONDITION  in  BC^DY  AS  A  WHOLE  seen  in  5/5  subjects 

Subjects;  5  PIC,  Age  6  W,  Wt.  12  KG,  Sex;  C,  28  EXP 
Exposure  Regimen:  AFLATOXLN,  3  MG/KG,  PO,  given  CHRON  x  28  D 
No  results  reported  for  this  Exposure  Group 

Subjects:  5  PIG,  Age;  6  W,  Wt:  12  KG,  Sex:  C  28  EXP 
Exposure  Regimen;  AfT,ATO\*.'*,  4  MG/KG,  PO,  given  CHRON  x  28  D 
UNK  SEVERITY  LIPICX3S15,  NOS  in  LIVER.  NOS  seen  in  5/5  subjects 

ASPARTATE  AMINO  TRANSFER/\SE  (SCOT)  MEASUREMENT  (F-23160)  (41  RJ/L)  in 
SERLM  seen  in  MEAN  subjects  with  onset  of  14  DAYS  hour(s)  and  duration  of  14  DAYS 
hourts). 

CREAHNE  KLNASE  (CK)  (10*9  lU/L)  in  SERLWI  een  in  MEAN  subjects  with  onset  of  28 
DAY  hour(s) 

GAMMA  GLUTAMYL  TR/ANSPEPriDASE,  Sf  RUM,  MEASUREMENT  (GGT)  (F-21340) 


(29  lU/L)  m  SERUM  seen  in  MEAN  subjects  with  onset  of  14  DAYS  hour(s)  and  duration 
of  14  DAYS  hour(s). 

LACTIC  DEHYDROGENASE  ISOENZYME,  NOS  (277  lU/L)  in  SERUM  seen  in  MEAN 
subjects  with  onset  of  28  DAY  hour(s) 

Um  SEVEim-Y  PHOSPHORUS,  DECREASED  LEVEL  in  SERUM  seen  in  MEAN  subjects 
with  onset  of  21  DAYS  hour(si  and  duration  of  7  DAYS  hour(s). 

UNK  SEVERITY  ICTERUS,  NOS  m  SKIN,  NOS  seen  in  2/5  subjects  with  onset  of  25  DAYS 
hour(s) 

UTJX  SEVERITY  DRY  STRUCTURE  in  HAIR,  NOS  seen  in  5/5  subjects  with  onset  of  UNK 
hour(s)  and  duration  of  UNK  hour(s). 

L2NK  SEVERITY  CACHEXiA  in  BODY  AS  A  WHOLE  seen  in  5/5  subjects  with  onset  of 
UNK  hour(s)  and  duration  of  Ul's'K  hour(s). 


IHO 


TKS  Citation  code:  JOOOOl-0005-00879-1985 
File  code:  BEAS.5.879.85  in  the  following  files:  S  P 

(1410)  Beasley  VR  EXPERIMENTAL  T-2  TOXICOSIS  IN  SWEME  I.  CHANGES  LN  CAR¬ 
DIAC  OUTPLrr,AORTIC  MEAN  PRESSURE,  CATECFIOLAMlNES,  6-KETO- 
PGFl  ALPHA,THROMBANE  B2,  AND  ACID-BASE  PARAMETERS,  FTJNDAM  APPL 
TOXICOL  5:879-892,1985 

Keywords  Assigned:  blood  gas,  blood  ph,  din  ser  enz,  blood  pres,  cardiac  output,  shock, 
female,  t-2,  swine,  tox  in  vivo,  cvp,  iv 

ABSTRACT 

Overview: 

EXl’ER-TOXICITY  paper  with  stated  purpose  of  CHARACTERIZE  CARDIOVASULAR 
EFFECTS  OF  T-2  IN  PIG  reporting  on  1  design(s). 

Design  Information: 

Results:  Design-Oriented 

Design:  3  GRP,  3  EXP,  Y  CNTL 

Subjects:  5  PORCINE,  Age:  UNR  ,  Wt:  50  KG,  Sex:  F,  1  EXP 
Exposure  Regimen:  T-2  TOXIN,  0.6  MG/KG,  lA,  given  ONCE  x  ONE  DOSE 
VOMITING,  PERSISTENT  (3  — )  ir.  GASTROINTESTINAL  TRACT,  UITER  seen  in  5/5 
subjects  with  onset  of  -1  HR  hour(s)  and  duration  of  PERSISTANT  hourfs). 

SEVERE  DIARRHEA,  NOS  in  GASTROINTESTINAL  TRACT,  LOWER  seen  in  1/5  sub¬ 
jects  with  onset  of  -1  HR  hour(s)  and  duration  of  UNK  hour(s). 

UNK  SEVERITY  FLATULENCE  in  GASTROINTESTINAL  TRACT,  LOV/ER  seen  in  ?/5 
subjects  with  onset  of  -1  HR  hourfs)  and  duration  of  UNK  hour(s). 

CHEWING  ( - )  in  MOUTH,  NOS  seen  in  5/5  subjects  with  onset  of  <  0.5  HR  hourfs) 

and  duration  of  N/AV  hour(s). 

SALIVARY  SECRETION,  INCREASED  ( - )  in  SALIVARY  GLAND,  NOS  seen  in  5/5 

subjects  with  onset  of  <  0.5  HR  hourfs)  and  duration  of  N/AV  hour(s). 

UNK  SEVERITY  RESTLESSInTSS  in  BRAIN,  NOS  seen  in  5/5  subjects  with  onset  of  UNK 
hourfs)  and  duration  of  UNK  hourfs). 

LTIK  SEVERITY  STRAIN  GAGE,  BIOFEEDBACK  in  ABDOMEN,  NOS  seen  in  3?/5  sub¬ 
jects  with  onset  of  <  1  HR  hour(s) 

Subjects;  5  PORCINE,  Age:  UNK  ,  Wt:  50  KG,  Sex:  F,  1  EXP 
Exposure  Regimen.  ETHANOL  70%,  N/AV ,  lA,  given  ONCE  x  ONE  DOSE 
No  results  reported  for  this  Exposure  Group. 
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Subjects;  5  PORCLNE,  Age:  UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP 
Exposure  Regimen;  T-2  TOXIN,  4.8  MG /KG,  lA,  given  ONCE  x  ONE  DOSE 
VOMITING,  PERSISTENT  (3  — )  in  G^ASTROEsTTESTINAL  TRACT,  UPPER  seen  in  5/5 
subjects  with  onset  of  ~1  HR  hourfs)  and  duration  of  PERSISTANT  hour(s). 

SEVERE  DIARRHEA,  NOS  in  GASTROINTESTINAL  TRACT,  LOWER  seen  in  ?/5  sub¬ 
jects  with  onset  of  -1  HR  hourfs)  and  duration  of  LT^IK  hour(s). 

USK  SEVERITY  FL-XTUTENCE  in  GASTROLNTESTINAL  TRACT,  LOWER  seen  in  ?/5 
subjects  with  onset  of  -1  HR  hour(s)  and  duration  of  UTviK  hour(s). 

CHEWING  ( - )  in  MOUTH,  NOS  seen  in  5/5  subjects  with  onset  of  <  0.5  HR  hourfs) 

and  duration  of  N/ AV  hour(s). 

SALIVARY  SECRETION,  INCREASED  ( - )  in  SALIVARY  GEXND,  NOS  seen  in  5/5 

subjects  with  onset  of  <  0.5  HR  hourfs)  and  duration  of  N/AV  hourfs). 

UNTc  SEVERITY  RESTLESSNESS  in  BRAIN,  NOS  seen  in  5/5  subjects  with  onset  of  UNK 
hourfs)  and  duration  of  UNK  hourfs). 

UNK  SEVERITY  DISORDER  STRAIN  GAGE,  BIOFEEDBACK  in  ABDOMEN,  NOS  seen  in 
subjects 


182 


TKS  Citation  code:  JOOOOl -0009-00588-1 987 
FUe  code:  BEAS.9.588.87  in  the  following  files:  BP 

(1422)  Beasley  VR,  Lundeen  GR,  Poppenga  RH,  Buck  VVB:  DISTRIBUTION  OF  BLOOD 
FLOW  TO  TFIE  GASTROINTESTINAL  TRACT  OF  SWINE  DURING  T-2  TOXIN-IN¬ 
DUCED  SHOCK,  FUN  DAM  APPL  TOXICOL  9:588-594,1987 

Keywords  Assigned:  radiolabel,  blood  flow,  young,  female,  swine,  tox  in  vivo,  t-2 

ABSTRACT 

Overview: 

EXPER-TOXICITY  paper  with  stated  purpose  of  STUDY  GASTROENESTINAL  BLOOD 
FLOW  IN  T-2  TOXICOSIS  reporting  on  1  design(s). 

Design  Information: 

Results:  Design-Oriented 

Design:  3  GRP,  3  EXP,  Y  CNTL 

Subjects:  6  PORCINE,  Age:  N-AV  ,  Wt:  55  KG,  Sex:  F,  1  EXP 
Exposure  Regimen:  ETHANOL  70%,  7  ML,  LA,  given  ONCE  x  ONE  IXDSE 
No  results  repoi  ted  for  this  Exposure  Group. 

Subjects:  6  PORCINE,  Age:  N-AV  ,  Wt:  55  KG,  Sex:  F,  1  EXP 
Exposure  Regimen:  T-2  TOXIN,  0.6  MG/KG,  LA,  given  ONCE  x  ONE  EXDSE 
No  results  reported  for  this  Exposure  Group. 

Subjects.  6  PORCINE,  Age:  N-AV  ,  Wt:  55  KG,  Sex:  F,  I  EXP 
Exposure  Regimen:  T-2  TOXIN,  2,4  MCG/KG,  lA,  given  ONCE  x  ONE  DOSE 
SEVERE  VOMITING,  NOS  in  GASTROINTESTINAL  TRACT,  UPPER  seen  in  3/3  subjects 
with  ons?t  of  1  HR  hourfs)  and  duration  of  4  HR  hourfs). 
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TKS  Citation  code:  J0021 7-0082-00532-1 986 

File  code;  COSG. 82.532.86  in  the  following  files:  SLBP 

(935)  Cosgriff  TM,  Banner  DU  Wannemacher  RW  JR.,  Hodgson  LA,  Dinterman  RE:  THE 
HEMOSTATIC  DERANGEMENT  PRODUCED  BY  T-2  TOXIN  IN  CYNOMOLGUS  MON¬ 
KEYS,  TOXICOL  APPL  PHARMACOL  82:532-539,1986 

Keywords  Assigned:  other  glycerol,  water,  car  ethanol,  plyinph,  gi,  heart,  gross,  wbc,  pcv- 
pvc,  platelets,  clot,  din  ser  enz,  monkey,  male,  t-2,  midage,  hemmor,  blood,  rbc,  lo 

ABSTRACT 

Overview: 

EXPER-TOXICITY  paper  with  stated  purpKjse  of  DETERMINE  EFFECTS  OF  T-2  ON 
BLOOD  COAGULATION  and  implied  purpose  of  PRIMATE  MODEL  FOR  HUMAN 
EXPOSURE  reporting  on  1  design(s). 

Design  Information: 

Results:  Design-Oriented 

Design:  1  GRP,  2  EXP,  CNTL 

Subjects:  12  MONKEY,  Age;  UNK  ADUL,  Wt;  4-6  KG,  Sex:  M,  1  EXP 
Exjxjsure  Regimen:  T-2  TOXIN,  0.65  MG /KG,  IM,  given  x 
UNX  SEVERITY  HEMORRHAGE,  PETECHIAL  in  HEART,  NOS  seen  in  3/5  subjects  with 
onset  of  UNK  hour(s) 

UNK  SEVERITY  HEMORRHAGE,  PEl’ECHIAL  in  COLON,  NOS  seen  in  3/5  subjects  with 
onset  of  UNK.  hour(s) 

UNK  SEVERITY  NECROSIS,  NOS  in  LYMPH  NODE,  NOS  seen  in  UNK  subjects 

UNK  SEVERITY  NEUTROPHIUC  LEUKOCYTOSIS  (T-OX160)  in  BLOOD  NEUTROPHIL 
seen  in  UNK  subjects  with  onset  of  6  HR  hour(s)  and  duration  of  2  DAYS  hour(s). 

UNK  SEVERITY  LYMPHOCYTE  PRODUCTION,  DECREASED  in  BLOOD  LYMPHO¬ 
CYTE  seen  in  UNK  subjects  with  onset  of  48  HRS  hour(s)  and  duration  of  UNK  hour(s). 

LYMPHOCYTE  PRODUCTION,  INCREASED  (20000  ML)  in  BLOOD  LYMPHOCYTE  seen 
in  UNK  subjects  with  onset  of  6  HR  hour(s)  and  duration  of  18  HR  hour(s). 

UNK  SEVERITY  ACTIVATED  PARTIAL  THROMBOPLASTIN  TIME  in  PLASMA  seen  in 
UNK  subjects  with  onset  of  12  HRS  hour(s)  and  duration  of  -3  DAYS  hour(s). 

UNK  SEVERTT/  COAGULATION  FACTOR  II  in  PLASMA  seen  in  UNK  subjects  with 
onset  of  6-12  HR  hour(s)  and  duration  of  3  DAYS  hour(s). 

UNK  SEVERITY  COAGULATION  FACTOR  IX  in  PLASMA  seen  in  UNK  subjects  with 
onset  of  12  HRS  hour(s)  and  duration  of  2  DAYS  hour(s). 


184 


UNK  SEVEi?JTY  COAGULATION  FACTOR  V  m  PLASMA  seen  in  LINK  subjects  with 
onset  of  6-12  HRS  hour(s)  and  duration  of  1.5  DAYS  hour(s). 

LTJK  SEVERITY  COAGULATION  FACTOR  VU  in  PLASMA  seen  in  LNK  subjects  with 
onset  of  12  HRS  hour(s)  aind  duration  of  >3DAYS  hour(s). 

UNK  SEVERITY  COAGULATION  FACTOR  Vm  in  PLASMA  seen  in  UNK  subjects  with 
onset  of  12  HRS  hour(s)  and  duration  of  2-3  DAYS  hour(s). 

UNK  SEVERITY  COAGULATION  FACTOR  X  in  PLASMA  seen  in  UNK  subjects  with 
onset  of  12  HRS  hour(s)  and  duration  of  1.5  DAYS  hour(s). 

UNK  SEVERITY  COAGULATION  FACTOR  XI  in  PLASMA  seen  in  UNK  subjects  with 
onset  of  6  HRS  hour(s)  and  duration  of  3  DAYS  hour(s). 

UNK  SEVERITY  COAGULATION  FACTOR  XH  in  PLASMA  seen  in  UT\K  subjects  with 
onset  of  6  FIRS  hour(s)  and  duration  of  3  DAYS  hour(s). 

PROTHROMBIN  TIME  (MODER.\TE  SECONDS)  in  PLASMA  seen  in  LNK  subjects  with 
onset  of  6  HRS  hour(s)  and  duration  of  2  DAYS  hour(s). 

No  results  reported  for  this  Exposure  Group. 
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System-Sign-Species-Sign-Dose-Study  Design 

Monographs 

Aflatoxin 

LIPIDOSIS,  NOS 

(SEVERE)  occurring  in  5/5  subjects  at  with  duration.  Subjects:  5  PIG,  Age:  6  W,  Wt: 

12  KG,  Sex:  C,  28  EXP  Exposures:AFLATOXLN,  4  MG/KG,  PO,  given  QiRON  x  28  D 
Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


ASPARTATE  AMINO  TRANSFERASE  (SGOT)  MEASUREMENT  (F-23160) 
(41IL/L)  occurring  in  MEAN  subjects  at  14  DAYS  with  14  DAYS  duration.  Subjects: 

5  PIG,  Age:  6  W,  Wb  12  KG,  Sex:  C,  28  EXP  Exposures: AFLATOXIN,  4  MG/ KG,  PO,  given 
CHRON  X  28  D  D3sign:5  GRP,  5  EXP,  Y  CNTL  (2556) 


CREATINE  KINASE  (CK) 

(109IU/L)  occurring  in  MEAN  subjects  at  28  DAY  with  duration.  Subjects:  5  PIG,  Age:  6 
W,  Wb  12  KG,  Sex:  C,  28  EXP  Exposures: AFLATOXIN,  4  MG /KG,  PO.  given  CHRON  x  28 
D  Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


GAMMA  GLUTAMYL  TRANSPEPTIDASE,  5EP.UM,  MEASLT^MENT  (GGT)  (F- 

21340) 

{29IU/L)  occurring  in  MEAN  subjects  at  14  DAYS  v^nth  14  DAYS  duration.  Subjects: 
5  PIG,  Age:  6  W,  Wb  12  KG,  Sex:  C,  28  E;<P  Exposures:  AFLATO.XIN,  4  MG /KG,  PO,  given 
CHRON  X  28  D  Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


LACTIC  DEHYDROGENASE  ISOENZYME,  NOS 
(277IU/L)  occurring  in  MEAN  subjects  at  28  DAY  with  duration.  Subjects:  5  PIG,  Age:  6 
W,  Wb  12  KG,  Sex:  C,  28  EXP  Exposures: AFLATOXIN,  4  MG/KG,  PO,  given  CHRON  x  28 
D  Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


PHOSPHORUS,  DECREASED  LEVEL 

(SEVERE)  occurring  in  MEAN  subjects  at  21  DAYS  with  7  DAYS  duration.  Subjects: 
5  PIG,  Age:  6  W,  Wb  12  KG,  Sex:  C,  28  EXP  Exposures :AH^TOXIN,  4  MG/KG,  PO,  given 
CHRON  X  28  D  Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


DRY  STRUCTURE 

(MILD)  occurring  in  5/5  subjects  at  UNK  with  UNK  duration.  Subjects:  5  PIG,  Age:  6 
W,  Wt:  12  KG,  Sex:  C,  28  EXP  Exposures:ArLATOXIN,  4  MG/KG,  PO,  given  CHRON  x  28 
D  Desigr.;5  GRP,  5  EX1^  Y  CNTL  (1556) 


186 


ICTERUS,  NOS 

(SEVERE)  occurring  in  2/5  subjects  at  25  DAYS  with  duration.  Subjects:  5  PIG,  Age:  6 
W,  Wt:  12  KG,  Sex:  C,  28  EXP  Exposures;AFLATOXIN,  4  MG/KG,  PO,  given  CHRON  x  28 
D  Design:5  GPJ^,  5  EXP,  Y  CNTL  (2556) 


CACHEXIA 

(MILD)  occurring  in  5/5  subjects  at  UNK  with  UNK  duration.  Subjects:  5  PIG,  Age:  6 
W,  Wt:  12  KG,  Sex:  C,  28  EXP  Exposures:AFLATOXIN,  4  MG/KG,  PO,  given  CHRON  x  28 
D  Design:5  GRP,  5  EXP,  Y  CNTL  (2556) 


NOI^AL  CONDITION 

0  occurring  in  5/5  subjects  at  with  duration.  Subjects:  5  PIG,  Age:  6  W,  Wt:  12  KG,  Sex: 

C,  28  EXP  Exposures;  AFLATOXIN,  2  MG /KG,  PO,  given  CHRON  x  28  D  Design:5  GRP,  5 
EXI",  Y  CNTL  (2556) 


NORMAL  CONDITION 

0  occurring  in  5/5  subjects  at  with  duration.  Subjects;  5  PIG,  Age;  6  W,  Wt:  12  KG,  Sex: 
C,  28  EXP  Exposures:  AFLATOXIN,  1  MG /KG,  PO,  given  CHRON  x  28  D  Design;5  GRP,  5 
EXP,  Y  GNTL  (2556) 


REFERENCES 

(2556)  Harvey  RB,  huff  WE,  Kubena  LF,  Corner  DE,  Phillips  TD:  PROGRESSION  OF 
AFLATOXJCOSIS  IN  GROWING  BARROWS,  AM  J  VET  RES  49:482-487,1988 
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T-2  Toxin 


HEMORRHAGE,  PETECHIAL 

(MILD)  occurring  in  3/5  subjects  at  UNK  with  duration.  Subjects;  12  MONKEY,  Age: 
UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:!-!  TOXIN,  0.65  MG/KG,  IM,  given  x 
Design:!  GRP,  2  EXP,  CNTL  (935) 


CHEWING 

( - )  occurring  in  5/5  subjects  at  <  0.5  HR  with  N/AV  duration.  Subjects;  5  PORCINE, 

Age:  UNK  ,  Wt:  50  KG,  Sex.  F,  1  EXP  Exposures:!-!  TOXLN,  0.6  MG/KG,  lA,  given  ONCE 
X  ONE  DOSE  Design.3  GRP,  3  EXP,  Y  CNTL  (1410) 


CHEWING 

( - )  occurring  in  5/5  subjects  at  <  0.5  HR  with  N/AV  duration.  Subjects:  5  PORCINE, 

Age:  UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  4.8  MG/KG,  L4,  given  ONCE 
X  ONE  EXDSE  Design;3  GRP,  3  EXP,  Y  CNTL  (1410) 


DIARRHEA,  NOS 

(3)  occurring  in  ?/5  subjects  at  -1  HR  with  UNK  duration.  Subjects:  5  PORCINE,  Age: 
UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TO>XN,  0.6  MG /KG,  lA,  given  ONCE  x 
ONE  DOSE  Design;3  GRP,  3  EXP,  Y  CNTL  (1410) 


DIARRHEA,  NOS 

(3)  occurring  in  ?/5  subjects  at  -1  HR  with  UNK  duration.  Subjects:  5  PORCINE,  Age: 
UNK  ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  4.8  MG /KG,  lA,  given  ONCE  x 
ONE  DOSE  Design;3GRP,3EXP,  YCNTL(1410) 


FLATULENCE 

(UNK)  occurring  in  ?/5  subjects  at  ~1  HR  with  UNK  duration.  Subjects:  5  PORCINE, 
Age;  UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  0.6  MG/KG,  lA,  given  ONCE 
X  ONE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


FLATULENCE 

(UNK)  occurring  in  ?/5  subjects  at  -1  HR  with  UNK  duration.  Subjects:  5  PORCINE, 
Age:  UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  4.8  MG/KG,  lA,  given  ONCE 
X  ONE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


HmORRHAGE,  PETECHIAL 

(MILD)  occurring  in  3/5  subjects  at  UNK  with  duration.  Subjects:  12  MONKEY,  Age: 
UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:!-!  TOXDT,  0.65  MG/KG,  IM,  given  x 
Design.!  GRP,  2  EXP,  CNTL  (935) 


SALIVARY  SECRETION,  INCREASED 

( - )  occurring  in  5/5  subjects  at  <  0.5  HR  with  N/AV  duration.  Subjects:  5  PORCINE, 

Age:  UNK  ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  0.6  MG/KG,  lA,  given  ONCE 
x  O.NE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


SAIJV^VRY  SECRETION,  INCREi^VSED 

( - )  occurring  in  5/5  subjects  at  <  0.5  HR  with  N/AV  duration.  Subjects:  5  PORCE'JE, 

Age:  UNK  ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  4.8  MG/KG,  lA,  given  ONCE 
X  ONE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


VOMITING,  NOS 

(3)  occurring  in  3/3  subjects  at  1  HR  with  4  HR  duration.  Subjects:  6  PORCINE,  Age:  N- 
AV  ,  Wt:  55  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXIN,  2.4  MCG/KG,  lA,  given  ONCE  x 
CNE  EX3SE  Design:3  GRP,  3  EXP,  Y  CNTL  (1422) 


VOMITING,  PERSISTENT 

(3 — )  occuiring  in  5/5  subjects  at  -1  HR  v/ith  PERSISTANT  duration.  Subjects:  5 
PORCINE,  Age:  LINK  ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:!-!  TOXLN,  0.6  MG/KG,  L\, 
given  ONCE  x  CNE  DOSE  Design;3  GRP,  3  EXP,  Y  CNTL  (1410) 


VOMITING,  PEP6ISTENT 

(3 — )  occurring  in  5/5  subjects  at  -1  HR  with  PERSISTANT  duration.  Subjects:  5 
PORCINE,  Age:  UNK  ,  Wt.  50  KG,  Sex;  F,  1  EXP  Exposures;!-!  TOXIN,  4.8  UC/KG,  lA, 
given  ONCE  x  ONE  DOSE  Design;3  GRP,  3  EXP,  Y  CNTL  (1410) 


ACTIVATED  PARTIAL  THROMBOPLASTIN  TIME 
(MODERATE)  occurring  in  UNK  subjects  at  12  HRS  with  -3  DAYS  duration.  Subjects: 
12  MO.NKEY,  Age.  UNK  ADUL,  Wt;  4-6  KG,  Sex;  M,  1  EXP  Exposures;!-!  TOXIN,  0.65 
MG/KG,IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


COAGULATION  FACTOR  II 

(SIGNIF)  occurring  in  UNK  subjects  at  6-12  HR  with  3  DAYS  duration.  Subjects;  12 
MONKEY,  Age:  UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:!-!  TOXLN,  0.65  MG/ 
KG,  IM,  given  x  Design;!  GRP,  2  EXP,  CNTL  (935) 
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COAGULATION  FACTOR  IX 

(MODERATE)  occurring  in  UNK  subjects  at  12  HRS  with  2  DAYS  duration.  Subjects: 
12  MONKEY,  Age:  UNK  ADUL,  VVt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0.65 
MG /KG,  IM,  given  x  Design;!  GRP,  2  EXP,  ONTL  (935) 


COAGUIATION  FACTOR  V 

(MODERATE)  occurring  in  UNK  subjects  at  6-12  HRS  with  1.5  DAYS  duration.  Subjects: 
12  MONKEY,  Age:  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0.65 
MG /KG,  IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


COAGULATION  FACTOR  VH 

(MODERATE)  occurring  in  UNK  subjects  at  12  HRS  wnth  >3DAYS  duration.  Subjects: 
12  MONKEY,  Age:  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Expo3ures:T-2  TOXIN,  0.65 
MG/KG,  IM,  given  x  Design;!  GRP,  2  EXP,  CNTL  (935) 


COAGULATION  FACTOR  Vm 

(MODERATE)  occurring  in  UNK  subjects  at  12  HRS  with  2-3  DAYS  duration.  Subjects: 
12  MONKEY,  Age:  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0,65 
MG/KG,IM,  given  x  Design  !  GRP,  2  EXP,  CNTL  (935) 


COAGULATION  FACTOR  X 

(MODERATE)  occurring  in  UNK  subjects  at  12  HRS  with  1.5  DAYS  duration.  Subjects; 

12  MONKEY,  Age:  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXLN,  0.65 
MG /KG,  IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


COAGUXATION  FACTOR  XI 

(MODERATE)  occurring  in  UNK  subjects  at  6  HRS  with  3  DAYS  duration.  Subjects: 
!2  MONKEY,  Age:  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-?  TOXIN,  0.65 
MG/KG,  IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


COAGULATION  FACTOR  XD 

(MODERATE)  occurring  in  UNK  subjects  at  6  HRS  with  3  DAYS  duration.  Subjects: 
12  MONKEY,  Age;  UTvJK  ADUL,  Wt;  4-6  KG,  Sex:  M.  1  EXP  Exposur£?s:T-2  TOXIN,  0.65 
MG/KG,IM,  given  x  Design;!  GRP,  2  EXP,  CNTL  (935) 


LYMPHOCYTE  PRODUCTION,  DECREASED 
(MILD)  occurring  in  UNK  subjects  at  48  HRS  with  UNK  duration.  Subjects:  12  MONKEY, 
Age;  UNK  ADUL,  Wb  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0.65  MG/KG,  IM, 
given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 
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LYMPHOCYTE  PRODUCTION,  INCREASED 
(20000ML)  occx’TTing  in  LINK  subjects  at  6  HR  with  18  Hl^  durcdon.  Subjects:  12 
MONKEY,  Age:  UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:  1-2  TOXIN,  0.65  MG/ 
KG,  EM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


NECROSIS,  NOS 

(NOT  ST AT)  occurring  in  UNK  subjects  at  with  duration.  Subjects:  12  MONKEY,  Age: 
UNK  ADUX,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0.65  MG/KG,  EM,  given  x 
Design:!  GPX,  2  EXP,  CNTL  (935) 


NEUEROPHILIC  LEUKOCYTOSIS  (T-0X160) 

(MODERATE)  occurring  in  LNK  subjects  at  6  HR  with  2  DAYS  duration.  Subjects:  12 
MONKEY,  Age:  UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXP  Exposures:T-2  TOXIN,  0.65  MG/ 
KG,  IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


PROTHROMBIN  TIME 

(MODERATESECONDS)  occurring  in  UNK  subjects  at  6  HRS  with  2  DAYS  duration. 
Subjects:  12  MONKEY,  Age:  UNK  ADUL,  Wt:  4-6  KG,  Sex:  M,  1  EXi’  Exposures:T-2 
TOXIN,  0.65  MG/KG,IM,  given  x  Design:!  GRP,  2  EXP,  CNTL  (935) 


RESTLESSNESS 

(UNK)  occurring  in  5/5  subjects  at  UNK  with  UNK  duration.  Subjects:  5  PORCINE, 
Age:  UNK ,  Wt:  50  KG,  Sex:  F,  1  EXP  Exposures:T-2  TOXIN,  4.8  MG /KG,  lA,  given  ONCE 
X  ONE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


RESTLESSNESS 

(UNK)  (X’curring  in  5/5  subjects  at  UNK  with  UNK  duration.  Subjects:  5  PORCINE, 
Age-  UNK  ,  Wb  50  KG,  Sex:  F,  1  EXP  Exposures;T-2  TOXIN,  0  6  MG/KG,  lA,  given  ONCE 
X  ONE  DOSE  Design:3  GRP,  3  EXP,  Y  CNTL  (1410) 


S ;  RAIN  GAGE,  BIOFEED3ACK 

0  occurring  in  3?/5  subjects  at  <  1  HR  with  duration.  Subjects:  5  PORCINE,  Age:  UNK  , 
Wt:  50  KG,  Sex:  F,  1  EXP  Exposures;  1-2  TOXLN,  0  6  MG/KG,  lA,  given  ONCE  x  ONE 
DOSE  Design:3GRr,3EXP,  YCNTL(1410) 


STRAIN  CAGE,  BIOFEEDBACK 

DISORDER  0  ocairring  in  subjects  at  with  duration.  Subjects;  5  PORCINE,  Age:  UNTC , 
Wt:  50  KG,  Sex;  F,  1  EXP  Exposures:T-2  TOXIN,  4,8  MG/ KG,  lA,  given  ONCE  x  ONE 
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DOSE  Design;3  GRP,  3  EXP,  Y  CNTL  (1410) 


REFERENCES 


(1422)  Beasley  VR,  Lundeen  GR,  Poppenga  RH,  Buck  WB:  DISTRIBUTION  OF  BLOOD 
FLOW  TO  THE  GASTROINTESTINAL  TRACT  OF  SWINE  DURING  T'2  TOXIN-IN¬ 
DUCED  SHOCK,  FUNDAM  APPL  TOXICOL  9:588-594,1987 

(1410)  Beasley  VR:  EXPERIMENTAL  T-2  TOXICOSIS  IN  SWINE  I.  CHANGES  IN  CAR- 
DL4C  OLTPl>r,AORTIC  MEAN  PRESSURE,  CATECHOLAMINES,  6-KETO- 
PGFlALPHA,TmOMBANE  B2,  AND  ACID-BASE  PARAMETERS,  FUNDAM  APPL 
TOXICOL  5:879-892,1085 


(935)  Cosgriff  TM,  Burmer  DL,  Wannemacher  RW  JR,  Hodgson  LA,  Dinterman  RE:  THE 
HEMOSTATIC  DERANGEMENT  PRODUCED  BY  T-2  TOXIN  IN  CYNOMOLGUS  MON 
KEYS,  TOXICOL  APPL  PHARMACOL  82:532-539,1986 
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Total  Monograph 

T-2  Toxin 


T-2  TOXIN 

CHEMICAL  DATA:  None  available  at  this  time. 


UNK  SEVERD’Y  HEMORRHAGE.  PETECPilAL  seen  in  3/5  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weiglung  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  If>rrRA-AI^TERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  UNK  (935) 


SEVERE  VOMITING,  NOS  seen  in  3/3  FEMALE,  N-AV  old  N-AV  PORCINE 
weighing  55  kilograms  N-AV  tallof  GOOD,  FEMORAL  CATH  health  status  (obtained 
from  N-  AV)  whicii  received  a  totad  of  I  expostuefs)  to  2.4  MCG/KG  T*2  TOXIN  by  PUL¬ 
MONARY  ,ARTEKY  INF  INTRA-ARTERIAL  EMJ  route  every  ONCE  for  a  duration  of  ONE 
DC)SE.  The  subjects  were  evaluated  at  EVERY  1.5  HR.  Clinical  effect  had  onset  of  1 
HR  and  duration  of  4  HR.  (1422) 


VOMITING,  PERSISTENT  (3  — )  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by  PUMPED 
IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE. 
The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effects  had  onset  of  -1  HR 
and  duration  of  PERSISTANT.  (1410) 


VOMITING,  PERSISTENT  (3  — )  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG /KG  T-2  TOXIN  by  PUMPED 
IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE. 
The  subjects  were  evaluated  at  CONTINOUSLY.  Clinical  effects  had  onset  of  -1  HR 
and  duration  of  PERSISTANT.  (1410) 
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SEVERE  DIARRIiEA,  NOS  seen  in  ?/5  FEMALE,  UNK  old  CROSSBRED  POR¬ 
CINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained  from 
UNK)  w.'  dch  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by  PL’TdPED  IN 
OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE.  T 
subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had  onset  of  ~1  FIR  and 
duration  of  UNK.  (1410) 


SEVERE  DIARRHEA,  NOS  seen  in  ?/5  FEMALE,  UNK  old  CROSSBRED  POR¬ 
CINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained  from 
UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG /KG  T-2  TOXIN  by  PUMPED  IN 
OVER  5  MIN  INTRA-ARTERIAL  ENJ  route  every  ONCE  for  a  duration  of  ONE  DOSE.  1 
subjects  were  evaluated  at  CONTINOUSLY.  Clinical  effect  had  onset  of  ~1  HR  and 
duration  of  UNK.  (1410) 


UNTC  SEVERITY  FLATULENCE  seen  in  ?/5  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  G(X)D;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  whidt  received  a  total  of  1  exposure(s)  to  0.6  MG /KG  T-2  TOXIN  by  PUMPE 
LN  OVER  5  MIN  LNTRA- ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSl 
The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had  onset  of  ~1  HR 
and  duration  of  UNK.  (1410) 


UNK  SEVERITY  FLATULENCE  seen  in  ?/5  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG/KG  T-2  TOXIN  by  PUMPB 
IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE 
The  subjects  were  evaluated  at  CONTINOUSLY.  Clinical  effect  had  onset  of  -1  HR 
and  duration  of  UNK.  (1410) 


CHEWING  ( - )  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED  PORCINE  weigl 

ing  50  kilograuns  of  GOOD;  FEMORAL  CATH  health  status  (obtained  from  UNK)  which 
received  a  total  of  1  exDosure(s)  to  0.6  MG/KG  T-2  TOXIN  by  PLMPED  IN  OVER  5  MIN 
INTRA-ARTERIAL  route  ever/  ONCE  for  a  duration  of  ONE  DOSE.  The  subjects 
were  evaluated  at  CONTINUOUSLY.  Clinical  effects  had  onset  of  <  0.5  HR  and  dura¬ 
tion  of  N/AV.  (1410) 
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CHEWING  ( - )  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED  PORCINE  weigh¬ 

ing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained  from  UNK)  which 
received  a  total  of  1  exposure(s)  to  4.8  MG/KG  T-2  TOXIN  by  PUMPED  IN  OVER  5  MIN 
INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE.  The  subjects 
were  evaluated  at  CONTINOUSLY.  Clinical  effects  had  onset  of  <  0.5  HR  and  dura¬ 
tion  of  N/AV.  (1410) 


SALIV.ARY  SECRETION,  INCREASED  ( - )  seen  in  5/5  FEMALE,  UNK  old 

CROSSBRED  PORCIN’E  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  expcsure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  Ov^ER  5  IvlIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTLNFUOUSLY.  Clinical  effects  had 
onset  of  <  0.5  HR  and  duration  of  N/AV.  (1410) 


SALIVARY  SECRETION,  INCREASED  ( - )  seen  in  5/5  FEMALE,  LTNK  old 

CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  ever}'  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINOUSLY.  Clinical  effects  had 
onset  of  <  0.5  HR  and  duration  of  N/AV.  (1410) 


UNK  SEVERITY  HEMORRHAGE,  PETECHIAL  seen  in  3/5  FEMALE,  UNK  old 
CROSSBRED  PORCE'JE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  INTRA-/JRTERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  UNK  (935) 


UNK  SEVERITY  NECROSIS,  NOS  seen  in  UNK  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  statvts  (obtained 
from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by  PUMPED 
IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE. 
The  subjects  were  evaluated  at  CONTINUOUSLY.  (935) 


UIVK  SEVERITY  NEUTROPHILIC  LEUKOCYTOSIS  (T-0X160)  seen  in  UNK  FE¬ 
MALE,  UNK  old  CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL 
C/\TH  health  status  (obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6 
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MG /KG  T-2  TOXIN  by  PUMPED  IN  OVER  5  MIN  INTiU\- ARTERIAL  INJ  route  every 
ONCE  for  a  duration  of  ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY. 
Clinical  effect  had  onset  of  6  HR  and  duration  of  2  DAYS.  (935) 


UTMK  SEVERITY  LYMPHOCYTE  PRODUCTION,  DECREASED  seen  in  UTMK  FE¬ 
MALE,  UNK  old  CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL 
CATH  health  status  (obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6 
MG /KG  T-2  TOXIN  by  PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every 
ONUE  for  a  duration  of  ONE  EXDSE.  The  subjects  were  evaluated  at  CONTINUOUSLY. 
Clinical  effect  had  onset  of  48  HRS  and  duration  of  UNK.  (935) 


LYMPHOCYTE  PRODUCTION,  INCREASED  (20000  ML)  seen  in  UNTC  FEMALE, 
UNK  old  aiOSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH 
health  status  (obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG 
2  TOXIN  by  PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a 
duration  of  ON^  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical 
effects  had  onset  of  6  HR  and  duration  of  18  HR.  (935) 


UW.  SE^^RITY  ACTT/ATED  PARTIAL  THROMBOPLASTIN  TIME  seen  in  UN] 
FEMALE,  UNK  old  CROSSBRED  PORCCC^  weighing  50  kilograms  of  GOOD;  FEMORA 
CATIT  heal  tin  status  (obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6 
MG /KG  T-2  TOXIN  by  PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every 
ONCE  for  a  duration  of  ONE  EXDSE.  The  subjects  were  evaluated  at  CONTINUOUSLY. 
Clinical  effect  had  onset  of  12  HRS  and  duration  of  -3  DAYS.  (935) 


Ui'JK  SEVERITY  COAGULATION  FACTOR  U  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  statu 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  b 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  ever;  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  6-12  ITR  and  duration  of  3  DAYS.  (935) 


UNK  SEVERITY  COAGULATION  FACTOR  IX  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  statu 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  b 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
O.NE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
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onset  of  12  HRS  and  duration  of  2  DAYS. 


(935) 


IJNK  SEVERITY  COAGULATION'  FACTOR  V  seen  in  UNK  FEMAT.E,  UNK  old 
CROSSBRED  PORCINE  weighing  50  1  grams  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  IvflN  INTRA-ARTERIAL  ESIJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 

onset  of  6-12  HRS  and  duration  of  1.5  DAYS  (935) 


UNK  SEVERITY  COAGUT^TION  FACTOR  VH  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FTMORAL.  CATH  health  status 
(obtained  from  U'NK)  which  received  a  total  of  1  exposurefs)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  ever>'  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTIhUOUSLY  Clinical  effect  had 
onset  of  12  HRS  and  duration  of  >3DAYS.  (935) 


UNK  SEVERITY  COAGULATION  FACTOR  VHI  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  G(X)D;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exDosure(s)  to  0.6  MG /KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  LNTRa- ARTERIAL  II'JJ  route  ever/  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  12  HRS  and  duration  of  2-3  DAYS.  (935) 


UNK  SEVERITY  COAGULATION  FACTOR  X  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GCX)D;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  12  HRS  and  duration  of  1.5  DAYS.  (935) 


UNK  SEVERITY  COAGULATION  FACTOR  XI  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  . 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG /KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  durarion  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  6  HRS  and  duration  of  3  DAYS.  (935) 
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UNK  SEVERITY  COAGULATION  FACTOR  XH  seen  in  UNK  FEMALE,  UNK  old 
CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PLWED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onset  of  6  HRS  and  duration  of  3  DAYS.  (935) 


PROTHROMBIN  TDdE  (MODEILATE  SECONDS)  seen  in  UNK  FEMALE,  UNK  old 
CROSSBl^D  PORCLNE  weighing  50  kilograms  of  GOOD;  FEMOR  \L  CATH  health  status 
(obtained,  from  LNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by 
PLIMPED  IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
CNE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effects  had 
onset  of  6  HRS  and  duration  of  2  DAYS.  (935) 


UNK  SEVERITY  RESTLESSNESS  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED 
PORCLNE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG/KG  T-2  TOXIN  by  PUMPED 
LN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE. 
The  subjects  were  evaluated  at  CONTINOUSLY.  Clirucal  effect  had  onset  of  UNK  and 
duration  of  UNK.  (1410) 


UNKSE\^RITY  RESTLESSNESS  seen  in  5/5  FEMALE,  UNK  old  CROSSBRED 
PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status  (obtained 
from  UNK)  w'hich  received  a  total  of  I  exposure(s)  to  0.6  MG/KG  T-2  TOXIN  by  PUMPED 
IN  OVER  5  MIN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of  ONE  DOSE. 
The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had  onset  of  UNK  and 
duration  of  UNK.  (HIO) 


UNK  SEVERITY  STRAIN  GAGE,  BIOFEEDBACK  seen  in  37/5  FEMALE,  UNK  old 
CROSSBRED  PORCINF  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH  health  status 
(obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  0.6  MG /KG  T-2  TOXIN  by 
PUMPED  IN  OVER  5  MLN  INTRA-ARTERIAL  INJ  route  every  ONCE  for  a  duration  of 
ONE  DOSE.  The  subjects  were  evaluated  at  CONTINUOUSLY.  Clinical  effect  had 
onsetof  <  1  HR  (1410) 
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UNK  SEVERITY  DISORDER  STRALN  GaGE,  BIOFEEDBACK  seen  in  FEMALE, 
UNK  old  CROSSBRED  PORCINE  weighing  50  kilograms  of  GOOD;  FEMORAL  CATH 
health  status  (obtained  from  UNK)  which  received  a  total  of  1  exposure(s)  to  4.8  MG/KG  T- 
2  TOXIN  by  PUMPED  IN  OVER  5  MIN  LNTRA- ARTERIAL  INJ  route  every  ONCE  for  a 
duration  of  ONE  DOSE.  The  subjects  were  evaluated  at  CONTINOUSLY.  (1410) 
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Appendix  G. 

Toxin  Knowiedge  System 
Documentation 


Note  that  the  Documentation  has  its  own  page  number  sequencing  and  table  of  contents. 
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Disclaimer 
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Program  Overview 

Vv It  is  corrunonly  called  the  "information  explosion"  has  made  it  increasingly  difficult  to 
kc-.p  up  with  what  is  being  published  internationally,  and  to  integrate  and  synthesize  what 
IS  being  done  by  numerous  individual  researchers.  Even  if  the  focus  of  interest  is  very 
narrow,  it  is  often  difficult  to  understand  the  meaning  of  experimental  findings  and  how 
they  relate  to  one  another  because  there  are  so  many  different  experimental  variables.  Each 
research  group  has  a  particular  question  they  are  trying  to  address.  Even  if  one  or  more 
groups  have  the  same  question,  they  will  go  about  answering  it  in  very  different  ways.  The 
following  list  includes  some  of  the  parameters  that  may  differ:  animal  model,  agent 
preparation  methods  and  dosing  formulations,  duration  of  exposure,  e\'aluaticn  param¬ 
eters  and  interpretation  of  results. 

The  concept  of  this  program  is  to  take  the  detailed  information  that  is  commonly  given  in 
written  reports,  break  it  down  into  component  parts  and  place  it  within  a  consistent 
framework  in  a  relational  database.  One  can  then  ask  general  or  specific  questions  of  the 
database  instead  of  studying  each  paper,  naaking  comparisons.  Since  the  TTCS  system  was 
initially  developed  using  mycotoxin  literature,  we  will  use  them  as  an  example. 

Suppose  you  wanted  to  identify  the  mycotoxins  which  were  associated  with  kidney  lesions 
in  swine.  The  da  tabase  could  be  asked  for  a  list  of  citations  in  which  swine  were  the  subjects 
and  where  kidney  lesions  were  found.  It  should  also  be  possible  to  identify  reports  where 
a  specific  type  of  kidney  lesion  was  reported,  such  as  proximal  tubular  degeneration.  As 
you  can  see,  it  is  also  possible  to  use  the  database  as  a  diagnostic  tool.  What  toxin  is 
associated  wi  th  causing  cardiac  lesions,  elevated  body  temperature  and  decreased  circulat¬ 
ing  neutrophils? 

What  does  this  give  you  that  cannot  be  obtained  from  other  citation  databases?  Well,  you 
can  also  ask  the  TKS  database  to  give  you  information  about  the  material  and  methods 
sections  of  the  citation  matches  so  that  you  can  compare  the  agent  formulations,  doses 
administered,  route  of  administration  and  duration  of  exjxjsure,  as  well  as  other  parameters 
which  may  have  influenced  the  resul  ts  or  their  frequency  of  occurrentfi.  The  differences  In 
experimental  protocolscould  be  used  to  explain  variabilit)'  in  results  and  suggest  unifying 
experiments. 

The  TKS  system  provides  another  tool  for  information  management.  Scientists  will 
typically  base  their  reprint  files  on  particular  subject  groupings  or  alphabetize  them  based 
on  the  authors  names.  The  TKS  system  providesa  classification  scheme  and  a  way  to  locate 
information  which  utilizes  both  approaches.  You  can  locate  work  done  by  certain  people, 
yet  perform  searches  looking  for  specific  topical  information. 

Having  the  information  available  on  a  magnetic  medium  means  that  others  with  a  terminal 
and  connect  permission  may  also  have  access  to  the  information.  The  data  is  available  in 
an  abbreviated  but  detailed  form  to  many.  One  can  maintain  a  main  repository  or  several 
component  repositories  for  hard  copies  of  the  original  manuscripts  for  reference  purposes. 

Although  it  was  originally  conceived  as  a  mini  or  mainframe  product  to  handle  large 
amountsofdata.  The  program  is  being  ported  to  MS-DOS  compatible  microcomputersand 
perhaps  to  the  Macintosh  platform.  This  means  that  pxjtentia!  users  could  establish  their 
own  databases  centered  around  the  topics  important  to  them  on  their  own  machines. 


Documentation  Overview 

Youcanleam  to  use  theToxinKnowledgeSystem  by  following  the  program  documentahon 
sequentially,  starting  at  TKS-M  AIN;  Menu  Ophons.  You  will  be  taken  through  the  process 
of  entering  data  from  an  article  by  first  defining  the  citation  data  and  paper  overvie’.v,  and 
later  the  other  component  parts  such  as  the  materials  and  methods  (study  design,  subject 
groups,  treatment  regimens),  results  and  discussion. 
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Toxin  Khowl0dgi‘Sys^Vocuimhmi6i 


TKS-MAIN  Menu 


‘  >  .  -^jI 


TKS-MAIN  Menu  Options 

When  the  TKS- Program  is  started,  the  "TXS-M  AIN"  menu  optionsare  available  (Figure  1.1). 
The  first  option  in  the  list  is  selected  as  indicated  by  the  reverse  video  (highlight  or  funnel 
enclosure  on  some  screens)  of  "AbstractMgt."  You  can  move  through  the  menu  by  using 
the  right  and  left  arrow  or  cursor  beys.  Messages  which  briefly  explain  each  option  appear 
below  the  menu 


Figure  1.1 
TKS-MAIN 
Menu  and 
Screen  bar. 


-j- 


htnu  title  ^ First  option  ( reverse  video) 
/  ^jecond  option 


TKS-nflIN:.  .  Eaaai  [jglM  Uoeobuloru  Bapert*  Information  Exit 
N««  r.bstroet,  Add  to  ftbslroct.  Find  fibstractad  Data 


Brief  explanatory  text  for  first  option 


Help  message  reminder 
H«lp  is  cxxii  lobts.  Hit  Ctrt-U  for  h«lp. 


In  addi  tion,  on-screen  help  messages  are  available  for  most  menu  items  and  can  be  accessed 
by  hitting  the  "contror  and  "w"  keys  simultaneously  (Ctrl-w). 

Study  Figure  1.1  and  read  the  next  few  paragraphs  before  trying  anything. 

You  may  invoke  the  desired  menu  option  by  typing  in  lower  case  the  first  letter  of  the  option 
you  wish  to  select  or  by  hitting  "return"  when  an  option  is  highlighted.  For  example,  typing 
"e"  will  select  the  Exit"  option.  However,  this  method  may  not  allow  you  to  see  the  brief 
explanatory  text  associated  with  each  option. 
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Flgur0  1.2 
ABSTRACT 
Menu  and 
Screen 


AbstractMgt 

Selecting  the  first  option  in  the  TKS-MAIN  menu  brings  you  to  the  "ABSTRACT"  menu 
where  abstracts  can  be  entered,  abstracts  already  entered  can  be  added  to  (completed),  or 
modified  in  some  other  way,  or  where  searches  for  abstracted  information  can  be  per¬ 
formed.  Documentation  for  this  path  begins  below. 


Vocabulary 

This  option  allows  access  to  the  lists  and  codes  for  journals,  books,  keywords,  clinical 
findings  and  chemical  vocabulary.  These  areas  can  be  browsed,  modified,  added  to  or 
searched. 


Reports 

This  option  displays  the  "Report"  menu  with  two  choices  available  at  this  time.  This  menu 
has  just  begun  to  be  utilized  but  is  not  yet  "on-line."  Eventually  this  is  where  a  user  can  view 
the  most  current  monographs,  generate  nev/  monographs  (report  summaries  ),  generate 
structured  abstracts  for  a  specific  paper,  and  use  other  features  yet  to  be  developed. 


Information 

Choosing  this  option  brings  the  user  to  the  "INFORMATION"  menu  which  currently  has 
two  menu  choices.  They  are  "Copyright"  and  "Development."  Copyright  brings  up  the 
copyright  notes  and  the  program  version  number  as  well  as  a  summary  of  the  stages  of 
development  of  the  individual  programs  which  form  the  Toxin  Knowledge  System. 


Exit 

Selecting  "Exit"  removes  you  from  the  TKS  program  if  you  are  in  the  first  menu  (TKS- 
MAIN),  and  moves  you  to  the  previous  menu  if  you  are  at  any  other  point  in  the  program. 


ABSTRACT  Menu  Options 

Select  "AbstractMgt"  and  a  new  menu  appears,  entitled  "ABSTRACT."  The  options 
presented  (Figure  U)  are  "New,"  "Add,"  and  "Find."  Selecting  "New"  from  this  menu 
begins  the  process  of  entering  a  new  citation.  The  "Add"  option  (see  Chapter  7)  allows  you 
to  add  components  to  an  already  entered  abstract.  This  frequently  occurs  when  citation 
information  has  been  entered  but  the  content  of  the  paper  (materials  and  methods,  subject 
group  descriptions,  etc.)  has  not  been  abstracted.  Choosing  the  "Find"  option  allows  you 
to  search  for  various  aspects  of  entered  papx*rs. 


Menu  title 

_ ^  n  rst  option  ( reverse  video) 


ABSTRACT;  TTf  Add  Find  Exit 

Add  new  Cl  tat  I  or,  and  abstract  it  into  databas* 


V. 


Brief  explenetorg  text  for  option  in  reverse  video 
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New 

The  selection  of  the  "ABSTRACT"  menu  choice  "New"  begins  a  series  of  screens  which  take 
the  user  through  tlie  entry  process  for  a  ne  w  doaiment  (journal  article  or  book  chapter)  into 
the  system.  First,  the  user  will  enter  citation  data  (Figure  1.3),  followed  by  the  author  and 
keyword  information,  paper  content,  comments,  etc. 


Citation  Data  information 


Figure  1.3 
CITATION 
DATA  SCREEN 


JL 


SeiectinQthis  option  bmgj  upthe  jcresn  below. 


ffiSTRf¥:T:  Add  Find  Exit 


» - - 

I 
I 

I  CITflTIOM  Df.Tfl  SCREEN 

jcitation  No:(  ]  Fits  No;  t 

!Souro«:t  1  FIlaLoc.:!  1  Entng  Dot*: t  I 

juoluM/Cnap:  (  1  Pag«s:  t  ]-I  ]  Voon:  t  i 

ITi t(«: 

I  t 
I  ( 

I  ( 

I  [ 

I 

iJoumat/Book  Titt*; 

I  C  ) 

1 

IfluthOPi  [9  1  K^m'jxsrd*  19  1 

tPQp*rOv«n  tS  1  Cesigns  I  Sue;«:t«  13  1  Expoftaga  19  )  Sign# I  J 
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Help  Is  auoMabl*.  Hit  Ctnt-U  for  hslp. 


Author 

After  the  CITATION  DATA  SCREEN  is  displayed,  a  dialog  window  appears  and  prompts 
you  for  the  last  name  of  the  first  author  (you  do  rx)t  need  to  type  upper  case  letters).  Enter 
the  author  information,  then  hit  the  "return"  key. 


Source 

You  are  then  asked  for  the  journal  (or  book)  "source  code"  which  is  a  5  digit  number  with 
a  'T  (or  "B")  prefix,  for.  example,  "J00217." 

NOTE!  If  you  make  a  mistake  and  wish  to  abort  an  entry,  use  the  "Der  (delete)  key.  A 
misspellingcan  be  corrected  using  he  “Backspace"  key. 
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Figure  1.4 

J-LISTMenu 

(Overlay) 


You  are  not  likely  to  know  the  source  coc’.e  for  a  particular  journal  so  the  system  provides 
help.  As  the  message  at  the  top  of  the  screen  will  indicate,  pressing  function  key  5,  "F5" 
brings  upa  journal  list  (J-LIST)  overlay  (Figure  1.4)  which  also  hasoptions.  Usually  you  will 
need  to  find  a  particular  code  to  go  with  the  journal  you  are  abstracting.  There  are  tfcee 
options  available:  "Find,"  "Add,"  and  "Select." 


TKS  JOURNAL-LIST  (J-LIST)  Menu 


Find 

Select  "Find"  and  type  what  you  believe  the  corr'xt  abbreviation  would  be  for  that  journal. 
As  an  example,  type  'TOX  APPL  PHARM"  and  hit  the  "escape"  key  (Esc).  The  program 
searches  for  a  match.  As  you  can  see,  sometimes  one  is  not  found.  When  this  occurs  you 
can  try  another  option,  or  use  an  aid  such  as  a  "wild  card"  (*). 


flSSTBflCT :  ESI  Add  Find  Exit 


I 

lEntor  source  cod 

I 

i C i  tat i 

|Uo(uin«/COap:  l[|| 
I  V  i  1 1  • : 

I 


I  JouTTw  t  /Book  T  i  t 
l( 

I 

Iftulhor*  (9  1 
I  PopttT'Ousr  ( 9  ] 


J-LIST: 


I  Bdd  S«(*ct  Exit 
JOUattflL  SOURCE  LIST 


}[ 

H 

I( 

H 
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]( 

n 

K 

H 

]( 
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H 

It 

It 
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H*lp  Is  avdltabls.  Hit  Ctrl-W  for  h*lp. 


Try  typing  in  TOX*"  and  then  "return."  Observe  that  this  time  the  system  found  a  match 
(Figure  1.5),  that  the  correct  abbreviation  is  'TOXICOL  APPL  PHARMACOL”  and  the 
Source  Code  is  J00217.  Notice  also  that  there  are  several  other  potential  matches.  Use  the 
up  and  down  arrow  (cursor)  keys  to  move  through  the  list  until  you  come  to  the  selection 
you  desire.  You  can  then  hit  "Esc"  to  exit  from  that  window  and  return  to  the  abstract 
window,  where  the  system  automatically  enters  the  journal  source  code  you  selected! 
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Figure  1.5 
JOURNAL 
SOURCE  LIST 
Screen  after 
search  using 
"TOX*" 


flSSTR^CT:  Rdd  Kind  identified  after  Search  usi ng  "TOX 

i  iJ-LlSTi/fgfi?!  Add  S*l«ct  Exit 

I  Enter  source  codlHighl  igfit  a  journal  abbreuiation  and  press  ESC 
I  I  /  JOJKNflL  SOURCE  LIST 

ICitdtion  Mo  iSailTOXICOL  flPP^  PHRRMflCOL 
ISource:  |  ITOXICOL  EUR  RES 

lUolume/Chop:  lg||  ITOXICOL  LETT 
iTitle:  i  ITOXICOL  PATHOL 

i ITOXICOL  UITRO 
I  1  TOXICOLOGIST 

1  ITOXICOLOGIS'^-fiBSTR  1985  MEET 
i ITOXICOLOGV 
1 ITOXICON 
I  Journal/Book  TitilTOXICOM  <SUPPL> 

It  II 

I  It 

iHuthors  13  I  It 

IPaperOver  13  1  It 

I  It 


*■ 


1103321711 
1 1  J<53221 1 1 
ltJ302iei| 
HJ38222I! 
11036593)1 
1103338111 
1103642711 
1 1003223 11 
1 10333321 1 
1103651311 
It  II 
It  11 
It  11 
H  II 
1.  II 


Help  is  available.  Hit  Ctri-U  for  help. 


Since  there  is  a  good  chance  that  the  article  you  are  trying  to  abstract  is  not  in  the  above  list, 
you  can  abort  the  process  by  hitting  the  delete  (Del)  key.  The  cursor  returns  to  the  J-UST 
menu,  where  you  can  repeat  the  procedure  to  find  the  source  code  for  the  journal  of  interest. 

When  you  have  completed  the  "Source  Code"  field,  hilling  the  "return"  key  will  move  the 
cursor  to  the  next  field. 

If  the  journal  you  are  abstracting  already  has  a  source  code,  you  may  skip  the  section  below 
and  go  direcUy  to  "File  Loc."  several  paragraphs  further  down. 


Add 

This  option  is  used  to  add  new  journals  or  books  to  the  source  code  list.  Type  "a"  and  the 
TKS  JOURNAL  SOURCE  DATA  SCREEN  pops  up  with  the  cursor  on  the  "Journal  Name" 
field. 
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Figure  1.8 
JOURNAL 
SOURCE 
DATA  SCREEN 


rtieSTRftCT: 


Add  K i nd  £x i t 


I 


ICE  LIST 


Rcqu I s  t i on  Number :  I 
Journo (  Code :  I  1 


Journal  fibbreuiotion: 


J0URN«.  SOURCE  DHTR  SCREEN) H 

IH 
I  H 
IH 
I  H 
I  H 
IH 
IH 
IH 
IH 
IH 
I  H 
IH 
IH 
IH 
— ♦ 


Ij-ltip  i«  ouailobie.  Hit  Clrl-U  for  help 


It  is  the  same  screen  as  the  one  that  can  be  accessed  by  selecting  the  "Vocabulary"  option 
from  the  'TKS-M  AIN"  menu  and  "Journals  from  the  subsequent  "VOCABULARY"  menu. 
See  the  "Vocabulary"  section  for  an  explanation  of  the  options. 

Type  in  the  journal  name  followed  by  "return,"  until  the  next  field  is  reached.  Type  in  the 
journal  abbreviation  (obtained  from  the  National  Library  of  Medicine  List  of  Journals 
Index)  and  then  "Esc,"  which  causes  the  entry  to  be  assigned  an  "Acquisition  Number" 
wfuch  is  given  out  sequentially,  and  a  Journal  Source  Code,  which  is  based  on  Hie 
Acquisition  Number.  The  program  automatically  enters  the  new  source  code  for  the  journal 
in  the  appropriate  field  in  the  CITATION  DATA  SCREEN. 


Select 

Choosing  "Select"  will  serve  no  purpose  unless  you  have  a  list  of  journals  from  which  one 
needs  to  be  selected.  When  a  list  is  available,  one  can  invoke  this  option  by  choosing  it  and 
then  hitting  "Esc"  as  requested  on-scrccn. 
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Figure  1.7 
CITATION 
DATA  SCREEN 
Completed  via 
the'New"  path 
from  the 
“ABSTRACT’ 
menu. 


fiSSTRflCT:  17?^  fidd  Fitsd  Exit 


I  ClTfiTIOK  L'PiTft  SCREEN 

I Ci tati on  HoMjJi  FI  1.  no:  cEjsS£Il.lMBHai 
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I 

1  •Jouma l /Book 

I  [TOXICa  flPPL  PHflfihACOL  J 

I 

I  Authors  t9  ]  Keijaords  (9  1 

I  PoperOuer  19  1  Designs  It  I  Subjects  19  1  ExpoPegn  C9  1  Slgnsl  1 


lelp  is  ouailoble.  Hit  C(rl-U  tor  Set 


File  Loc. 

"File  Loc."  (Figure  U)  is  short  for  file  location.  This  provides  a  way  to  indicate  where  a 
specific  file  may  be  located,  and  is  particularly  useful  when  files  may  bo  stored  in  seveiaJ 
different  locations.  If  one  wants  to  locate  a  panicu'ar  tile,  this  field  in  TKS  citation  can  bs 
used  to  identify  where  to  look  (hopefully,  it  will  be  there). 

Since  there  is  space  for  only  6  characters,  abbreviations  can  be  set-up  for  particular  places 
or  names  of  individuals.  Type  in  the  location  of  the  citation  or  book  and  hit  "return." 

If  you  do  not  wish  to  use  this  option  hit  "return"  to  move  to  the  next  entry  point. 


Volume/Chap 

Enter  the  of  the  journal  or  the  number  of  the  book  chapter  from  which  the  article  was  taken. 
Hit  "return"  to  move  to  the  next  field. 


Pages 

Enter  the  beginning  page  number  followed  by  a  "return,"  and  the  ending  page  number  and 
"return." 


Year 

Enter  the  year  in  which  the  citation  was  published,  using  all  four  digits,  then  "return."  If  you 
are  not  in  a  hurry,  try  entering  just  the  last  two  digits  of  the  year  and  "return."  See  what 
happens?  Completing  this  field  correctly  provides  the  program  with  the  final  bit  of 
information  necessary  to  construct  the  citation  number  ("Citation  No."),  which  now 
appears. 
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The  citation  nun~.ber  consists  of  the  journal  source  code  (6  spaces),  the  volume  or  chapter 
number  (4  spaces),  the  beginning  page  number  (5  spaces)  and  the  year  (four  digits).  All 
items  must  be  separated  by  hypens.  The  number  must  include  characters  ir.  all  of  the  spaces 
allotted,  meaning  that  zero's  (0,  not  the  letter  O)  should  be  used  to  fill  in  blank  characters 
at  the  beginning  of  a  number.  Each  field  is  separated  by  a  hypen.  The  following  is  an 
example,  shouting  the  blank  characters  underlined:  100033-0052-00167-1988. 

Typing  "return"  again,  fills  in  the  "File  No."  field  automatically.  It  consists  of  the  first  four 
letters  of  the  first  author's  last  name,  the  journal  or  chapter  number,  the  beginning  page 
number  and  last  two  digits  of  the  year.  This  number  may  also  be  used  to  find  the  file  after 
it  is  in  the  system.  It  does  not  consist  of  extra  characters  or  spaces.  There  are  periods 
separating  portions  of  the  entry.  The  following  is  an  example,  SMrr.33.52.167.88. 

Hit  "return"  again. 

If  the  citation  you  are  attempting  to  enter  is  already  in  the  system,  you  will  receive 
notification  of  that  fact.  You  may  make  changes  in  a  file  that  is  already  in  the  system,  but 
not  from  the  "New"  citation  pathway  This  will  beexplained  in  a  later  section.  If  the  citation 
data  has  already  been  enter^,  you  can  check  to  see  if  other  components  have  been  entered 
and  either  add  them  or  "Exit"  back  to  the  "ABSTRACT"  menu  and  begin  the  entry  process 
again  for  another  article. 

If  the  citation  you  entered  is  new,  the  "return"  following  the  'Tile  No."  will  bring  the  cursor 
to  the  title  entry. 


me 

Enter  the  title  of  the  article  (type  in  small  case)  with  no  period.  There  is  room  for  even 
lengthy  titles  They  will  not  automatically  wraparound  the  alloted  space.  Asa  result,  words 
may  be  split  at  the  end  of  lines.  Do  not  attempt  to  prevent  this.  The  program  does  not  correct 
.spelling,  so  check  your  entry.  Once  the  title  is  complete  so  is  this  screen,  so  hit  "Esc,"  which 
causes  whai  you  typed  to  be  written  to  memory. 

Note!  Useful  keys  for  correcting  misspellings  are  the  "Control-x"  sequence  to  erase  a  letter  and 
“Control-a"  to  nsert  characters 


AUTHOR  DATA  SCREEN 


During  the  initial  entry  process  for  a  new  citation,  the  Author  screen  comes  up  after  the  title 
entry  (see  Figure  1.8).  Enter  the  last  name,  a  space  and  initials  (no  space  between  initials) 
of  the  first  author  as  requested  in  the  note  on  the  bottom  of  the  screen.  Hit  "return"  and  the 
cursor  moves  to  the  "AuthSig"  area  where  you  can  enter  the  position  of  the  author  in  the 
sequence  of  names  on  the  publication.  The  program  will  enter  the  numbers  if  you  enter  the 
names  in  the  proper  order.  lust  hit  "return"  when  the  cursor  is  in  the  "AuthSig"  field.  You 
can  add  up  to  six  names  to  the  author  list. 
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Figure  1.3 
AUTHOR 
DATA  SCREEN 
(Overlay) 


When  you  are  finished,  hi*  "Esc"  once  again.  This  writes  to  memory  the  author  list  and  the 
keyword  screen  pops  up. 


KEYWORD  DATA  SCREEN 

KeyCodesand  Keywords  can  be  used  to  enter  specific  information  on  any  aspect  (if  a  paper. 
Qinical  signs,  physical  signs,  gross  pathology,  clinical  pathology  and  histopathology 
findings,  toxin  preparation  methods,  animal  treatment  information,  statistical  analysis  or 
any  other  component  of  a  report. 

Figure  1.9 
KEYWORD 
DATA  SCREEN 
(Overlay) 
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Keywords  provide  more  than  ancillary  information.  They  can  be  used  to  search  for  certain 
papeiT  chat  meet  particular  criteria.  Which  papers  report  effects  of  toxin  "X"  in  monkeys? 
WTj  gave  feed  contaminated  with  purified  toxin?  cultured  extracts?  Which  papers 
reported  the  use  of  fasted  mice  and  which  allowed  access  to  food  up  until  the  time  of  dosing? 
Do  young  animals  react  differently  than  older  ones? 

KeyCodes  a.  i.  used  to  simplify  the  entry  process  by  decreasing  the  number  of  key  strokes 
needed  to  enter  a  description. 

The  current  keywords  were  designed  primarily  for  use  with  journal  or  book  articles 
describing  toxicologic  sh  lies  with  mycotoxins,  though  they  should  also  be  suitable  for 
describing  work  with  other  toxins.  They  are  arranged  by  major  headings  (toxin  type, 
species,  exposure  route,  etc.). 

NOTE;  The  KeyCoae/Keyword  portion  of  the  TKS  system  is  in  an  early  stage  of  develop¬ 
ment. 


KeyCodes  and  Keywords 

Enter  the  appropriate  keycode{s)  and  hit  "return."  The  keywords  now  appear  to  the  right. 
Hit  "Esc"  to  write  them  to  rriemory. 

If  you  do  not  wish  to  enter  keywords  at  this  time,  hit  the  "delete"  key. 

Since  you  do  not  know  any  of  the  keycodes,  enter  a  code  of  "C02"  and  press  "return."  The 
keyword  matching  that  code  is  placed  in  the  next  field.  If  one  knows  the  keycodes,  this  is 
the  quickest  way  to  enter  them.  Currently,  it  may  be  useful  to  have  a  hard  copy  of  the 
Keycodes  and  Keywords  in  order  to  look  the  Keywords  up  "manually"  by  major  heading 
and  group. 

If  an  incorrect  entry  is  placed  in  the  "Keycode"  field  followed  by  a  "return,"  or  you  hit  the 
"delete"  key,  the  program  assumes  you  need  help,  a.nd  brings  up  the  KEY-UST  SCREEN. 


KEY-UST  SCREEN 


Figure  1.10 

KEY-UST 

SCREEN 
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KUY-LlSTMenu 


Find 

The  "Find"  option  helps  you  search  for  particular  keywords  that  are  in  the  list,  and  idei  i  c  s 
their  associated  keyccde. 

Type  "f"  and  the  cursor  is  placed  on  the  first  field  (KeyCode).  Hit  "return"  and  the  cursor 
goes  to  the  "Keyword"  field.  Typein  the  word  "mouse"  andhit  "Esc."  The  program  searches 
for  that  keyword  and,  if  it  is  found,  fills  in  the  keycode  number.  One  can  enter  that  KeyCode 
and  Keyword  combir^tion  in  the  KEYWORD  DATA  SCREEN  by  hitting  "Esc"  once  again 
when  the  desired  pair  is  highlighted.  From  there,  the  process  starts  over  for  the  next 
keyword. 

If  a  keyword  is  searched  for  but  not  found,  the  program  responds  with  a  message  that  "There 
is  no  keyword  matching  the  first  three  letters"  and  returns  you  to  the  KEYWORD  DATA 
SCREEN. 


Add 

The  "Add"  option  allows  thefreedom  to  place  new  keywords  and  their  accompanying  codes 
into  the  KEY-LIST.  Selectingithnngr^up  the  KEYWORD  VOCABULARY  SCREEN  KETWORD 
VOCABULARY  SCREEN  with  the  cursor  in  the  "KeyCode"  field.  In  order  to  complete  the 
process  for  a  new  Keyword,  you  need  to  know  the  KeyCodes  for  theother  Keywords  in  order 
not  to  alter  already  established  associations.  Enter  the  appropriate  KeyCode,  and  associated 
Keyword,  followed  by  "Esc." 

Figure  1.11  KEYWORD  VOCABULARY  SCREEN 


iKEYWORO  LISTING:  liTtlHi  Find  Exit 
I  Add  k'syiDord  to  Kaguiord  Uocabutorg 
I 

i  KEYWORD  UOCRBULRRV  SCREEN 


KagCod*:  Kagword: 

(  1  (  ] 


(If  you  do  not  wish  to  enter  new  keywords  at  this  time,  hit  the  "delete"  key.  If  you  follow 
this  later  path,  the  screen  indicates  that  it  is  preparing  citation  "information.  ') 


CURRENT  PAPER  Menu 

The  next  menu  is  titled  "CURRENT  PAPER"  and  has  only  one  option,  "Exit."  That  is 
because  you  are  finishea  with  the  first  part  of  the  system  and  must  begin  a  new  phase  of  data 
entry  for  the  citation.  Note  that  the  screen  provides  a  summary  of  what  citation  information 
has  be  entered  so  far,  including  keywords.  Hit  "e"  or  "return"  to  go  on. 


Figure  1.12 
CURRENT 
PAPER  Menu 


Figure  1.13 
Query  prior  to 
entering 
additional 
citation  data 


I  CURRENT  PHPER: 

I 

i  J302 1 7-0 1 00-00 1 00- 1 989  TRHN .100.100.89 

ITRflMtlEL  HL.  :  THIS  IS  RN  EXAMPLE  FOR  DOCUMENTRTION  PURPOSES,  TOXICOL  RPPL  PH 
ifiBMACOL  100:100-150,1939  ,  rot,  path  ctir>,  tox  In  vivo 


You  are  then  asked  if  you  would  like  to  "add  content  data ...  for  this  paper?"  Content  refers 
to  data  components  such  as  Paper  Overview,  Designs,  Subjects,  Regimens,  etc. 


to.' systein'i  for  'this  poper'*  <V'/n  > 


If  you  type  "n"  then  "return,"  you  have  completed  the  citation  data  portion  of  the  entry 
process  and  wiU  be  returned  to  the  "ABSTRACT"  screen.  Typing  "y"  followed  by  "return" 
results  in  a  new  screen  which  begins  the  paper  overview  process. 

Return  to  TKS-MAIN  Menu 


TKS-MAIN  Menu:  Vocabulary 

Following  this  path  brings  up  the  "VOCABULARY"  menu  which  allows  one  to  work  with 
the  journal.  Book,  Keyword,  Sign,  and  Chemical  lists. 


VOCABULARY  Menu 


Journals 

Selecting  "Journals"  brings  up  the  JOURNAL-VOCABULARY  menu,  with  options  to 
"Add"  journals  to  the  list,  "Find"  a  particular  journal,  or  "Exit"  from  the  program. 


JOURNAL-VOCABULARY  Menu 


Add 

Selecting  "Add,"  puts  the  cursor  on  the  "Journal  Name"  field.  Type  in  the  journal  name  as 
given  in  the  National  Library  of  Medicine  List  of  Journals  Index,  and  hit  "return"  until  the 
"Journal  Abbreviation"  field  is  reached  and  enter  the  appropriate  abbreviation  as  given  by 
that  Index.  Hit  "Esc"  and  the  journal  is  assigned  a  Journal  Code  Number.  The  numbers  are 
unique  to  each  journal,  and  assigned  sequentially. 


13 


Find 

Selecting  "Find,"  puts  the  cursor  in  the  "Journal  Code"  field.  More  commonly  you  will  need 
to  use  the  "Journal  Name"  field,  so  hit  "return"  to  place  the  cursor  there  and  type  in  the 
EXACT  name  of  the  journal  in  order  to  find  its  journal  code.  If  you  typed  the  name  correctly 
and  it  is  already  in  the  system,  the  remaining  information  for  that  entry  is  now  provided  on¬ 
screen.  If  there  is  no  match,  check  your  spelling  and  title.  If  they  are  correct,  and  there  is 
no  match,  you  will  have  to  enter  it  as  a  new  journal  via  the  "Add"  feature.  Go  back  to  the 
JOURNAL- VOCABULARY  screen  and  follow  the  "Add"  path  (see  above). 

You  do  not  have  to  type  in  the  whole  name  of  the  journal,  you  can  use  the  first  few  letters 
of  the  first  word,  or  the  first  word  or  two  and  a  "wild  card"  symbol  (*).  For  example,  type 
in  "American*"  and  kit  "Esc"  The  message  at  the  bottom  left  comer  of  the  screen  tells  you 
that  more  than  one  match  was  found.  Increasing  the  length  of  the  search  patten,  will 
decrease  the  number  of  matches  you  obtain. 

You  can  now  "cycle"  through  the  matches  by  using  the  first  four  options  indicated  in  the 
"BROWSE"  menu  near  the  top  of  the  screen.  Kitting  "n"  for  next,  or  "return"  when  next  is 
highlighted  or  surrounded  by  quotes  brings  up  the  next  entry  in  the  list.  An  "1"  will  bring 
you  to  the  last  match  found.  By  using  the  right  and  left  arrow  keys  you  can  cycle  through 
the  'BROWSE"  menu  and  obtain  a  brief  description  of  each  option. 


The  "Book"  list  portion  of  the  TKS  system  is  not  yet  fully  operational. 

Books 

• 

Use  of  this  option  is  described  under  Keywords  for  a  "New"  citation. 

Keywords 

This  portion  of  the  program  is  not  yet  operational. 

Signs 

Chemicals 

This  portion  of  the  program  has  not  yet  been  implemented. 


Paper  Overview  Entry 


PAPER  OVERVIEW  SCREEN 

The  PAPER  OVERVIEW  SCREEN  begins  the  paper  content  entry  process.  Following  this 
screen,  the  user  wiD  be  taken  through  sequential  screens  in  order  to  enter  data  about 
different  components  of  the  paper's  content.  Currently  the  user  will  see  this  screen,  the 
STUDY  DESIGN  DATA  SCREEN,  SUBJECT  GROUP  DATA  SCREEN.  EXPOSURE  REGI¬ 
MEN  DATA  SCREEN,  and  the  EXPOSURE  CROUP  UNK  ENTRY  SCREEN. 


Hit  "return"  until  the  cursor  is  in  the  "Stated  Purpose"  field. 


Figure  2. 1 
PAPER 
OVERVIEW 
SCREEN 


Hit  RETUrai  to  add  date. 


Ci  tat  ion  I® 

1  J  ___ 

Stated  Purpos«;  t 
lBpli«d  Purposa:  C?;  i  ■ 
Papar  etas*:  1 

Mumbai'  of  Study  Oasi 


0a2t>^i(3a-oi9ieo>t989> 


PfiPEfl  0UE.=)UIEU  SCREEN 
Pita  No: 


n  Papar :  I 


Menu  option  choices 
for  the  first  field  of 
“Piper  dess,”  You 
must  select  one  of  th* 
four  letters. 


H;*  Noip’^pwyqiMt 
1  «  Inf<>  Only^  ’‘.IV. 
C  '»  Comb'that'ibnif  i  1 


Stated  Purpose 

There  is  room  here  to  succintly  identify  the  stated  purpose  of  the  paper  or  book.  That  is,  the 
purpose  as  stated  by  the  authors.  There  are  50  spaces.  Type  in  the  stated  purpose  followed 
by  "return." 


Implied  Purpose 

One  can  often  id^tify  information  which  hints  at  a  purpose  not  specifically  stated.  For 
example,  researchers  may  study  the  effects  of  an  expensive  toxin  on  mice  because  they  do 
not  have  enough  material  to  use  on  a  larger  animal  that  may  be  more  closely  related  to  the 
target  population,  people.  Perhaps,  the  long  term  effects  of  a  toxin  such  as  cadmium  was 
the  primary  interest,  bu  t  animals  were  only  fed  contaminated  diets  for  2  weeks  because  they 
developed  a  viral  infection  and  began  to  die. 
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Toxin,  knowledge  SystemOoci^m^tiaUon  - 


a* 


Type  in  the  implied  purpose  followed  by  "return."  If  there  is  none,  leave  it  blartk  (hit 
"return"). 


Paper  Class 

Select  one  of  the  descriptors  from  the  pop-up  menu  on  the  right  side  of  the  screen  (see  Figure 
2.1)  by  typing  the  indicated  letter  in  the  space  provided. 

The  cursor  moves  to  the  second  field  for  "Paper  Qass"  and  the  descripto’-s  change.  Enter  the 
appropriate  classification  (see  Figure  2.2)  and  wait  for  the  cursor  to  move  to  the  next  field. 


Figure  2.2 
Options 
available  for 
the  “Paper 
class"  fields 


Number  of  Study  Designs  In  Paper 

This  may  be  simply  stated  in  the  manuscript,  but  moreoften  you  will  have  to  carefully  check 
the  material  and  methods  section  (and  sometimes  the  Results  and  Discussion)  to  determine 
the  number  of  designs  useo  in  the  experiments  described.  Usually  there  will  be  a  single 
study  design  for  each  particular  question  or  hypothesis.  Defining  the  study  design  goes 
hand  in  hand  with  determining  the  questions  being  asked.  Good  researchers  will  specifi¬ 
cally  state  their  hypotheses  and  this,  in  turn,  will  help  you  in  entering  their  paper  into  die 
database. 

You  may  use  the  arrow  keys  or  the  "return"  key  to  cycle  through  portions  of  this  screen  if 
the  need  arises.  You  might  think  of  a  better  way  to  express  the  implied  purpose,  or  you  may 
have  made  an  error  that  needs  to  be  corrected. 

Remember,  useful  keys  for  correcting  misspellings  are  the  "Control-x"  sequence  to  erase  a 
letter  in  an  entry,  and  "Control-a"  to  insert  characters. 

Enter  the  number  of  designs  and  hit  "Esc,"  since  you  are  done  wi  th  this  screen.  The  STUDY 
DESIGN  DATA  SCREEN  comes  up  next. 
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Figure  3. 1 
STUDY 
DESIGN  DATA 
SCREEN 


ii  joxin  Knowledge  System  Oocumentatfah 


Study  Design  Data  Entry 


STUDY  DESIGN  DATA  SCREEN 

Below  the  title  of  the  STUDY  DESIGN  DATA  SCREEN  you  can  see  the  number  of  the  study 
design  you  will  be  entering  and  the  total  number  of  designs  as  indicated  from  the  PAPER 
OVERVIEW  DATA  SCREEN.  The  number  of  designs  will  increment  as  additional  screens 
are  entered  up  to  the  maximum  number  of  designs  indicated  in  the  paper  overview  screen. 
When  the  maximum  number  is  reached,  the  design  saeen  will  disappear  and  the  next  part 
of  the  process  begins. 

The  screen  comes  up  with  the  cursor  on  the  "Type  of  Study"  entry  field. 


Type  of  Study 

Enter  a  selection  from  the  menu  to  the  right  by  typing  the  corresponding  abbreviation, 
followed  by  "return." 


I 

I  Hit  RETURN  to  begin  to  odd  data. 
I 

I C i tot i on  No : 

I'! 


iM2i7-sreo-doie0^ji9B9:  > 


File  No: 


nri;  100:100  89  ' 


(Type  of  Study:  (qii  ( 

i  In  Ui'.»o  or  In  Uitro:  Ij)  I 

I 

jCcntrois  <y,'fO'  !|[J 

ICoMporison  Into:  (ttl  t 

I  Coepar  i  son  fie  thods :  I  ^  I  ( 

I  Control  Nethoda: 

I  Control  Types: 


STUOV  DESIGN  DflTfl  SCREEN 
[  1 
|]  Design  No.  iQ]  of  (|]] 


Screen  menu  option;) 
for  th«  Tgpe  of 
Studg"  field.  You 
must  enter  one  of 
the  letters  matching 
an  oDtion. 


C-fR  •  TKerojieutjl'cf 
P  ;.*  RrpphuiOftJti 
B.J*  Symptomclti 
F'  '=<r  Cose  Repeir 


I  Hoe  where  subjects  assigned  to  their  groups?  IDI  I 

I 

iNueb.  of  Subject  Groups: 
iNueb.  of  Exposure  Regimens;  lj||] 

I 


Note!  You  can  move  through  the  different  fields  in  this  screen  by  using  the  arrow  and /or  return  keys. 
This  is  particularly  useful  if  you  find  that  an  error  has  been  made  and  you  need  to  edit  a  previous  field. 

The  type  of  small  menu  selection  screen  which  comes  up  after  an  entry  depends  on  the 
response  in  a  previous  field.  For  example,  if  you  indicated  earlier  in  the  PAPER  OVERVIEW 
SCREEN  that  the  paper  being  entered  was  an  "Info  only"  papjer,  then  you  would  not  have 
been  able  to  indicate  there  were  study  designs,  since  t.hose  sorts  of  papers  do  not  generally 
include  experiments  (experiments  have,  or  at  least  should  have,  designs). 

With  the  current  screen,  if  you  indicate  that  there  are  no  controls,  then  you  will  not  be  able 
to  enter  the  fields  from  "Comparison  Info"  on  down. 
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In  Vivo  or  In  Vitro 

Again,  select  from  the  ,7ienu  to  the  right  side  of  the  screen  and  type  in  the  designation  for 
the  appropriate  classification,  and  the  cursor  will  move  to  the  next  field.  The  choices  for  this 
field  are  illustrated  below. 


Figure  3.2 
Choices  for  In 
Vivo  or  In  Vitro 
field 


Controls  (y/n) 

Enter  "y"  if  negative  or  positive  controls  were  used  in  the  experimental  design  and  "n"  if 
they  v.’ere  not . 


Comparison  Info 

If  the  answer  to  the  above  is  "y,"  then  you  will  be  able  to  enter  information  in  this  and  the 
following  fields.  Type  the  correct  letter  from  the  pop-up  menu  and  hit  "return"  (see  the 
following  page  for  a  representation  of  the  options  available)." 


Comparison  Methods 

Type  the  appropriate  letter  and  number  (see  the  following  page  for  a  representation  of  the 
options  available). 


Control  Methods 

Type  the  proper  letter  and  hit  "retmm"  (see  the  following  page  for  a  representation  of  the 
options  available).  No  "return"  is  necessary 


Control  Types 

Type  the  correct  letter  and  number  (see  the  following  page  for  a  representation  of  the 
options  available). 

How  were  subjects  assigned  to  their  groups? 

Type  the  appropriate  letter  followed  by  a  "return"  (see  the  following  page  for  a  represen¬ 
tation  of  the  options  available). 


Comparison  Methods 


Control  Methods 


Control  Types 


81  a  Hi'sWpicqte,.., 
82^ »  H6tched  Pafrs 


•  U  “  Unknottin 


Ho«  iKh*r«  assigr^d  to  thoir  groups? 


a  =  Rondoaized 
8.  •  etched  Poir"'^. 

C.  ■  fVioTtror^  ftfwtjriMnt 
M  .  Hoh«'< .  3-  ’  '■  > 


□  » •lWtno«*i- 


Figure  3.3  Summary  of  Options  Available  for  the  fields  of  the 
STUDY  DESIGN  DATA  SCREEN 
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Number  o1  Subject  Groups 


Examination  of  the  report  is  necessary  to  determine  the  appropriate  response  here.  Please 
note  that  the  number  of  subject  groups  encompassing  the  current  design  should  be  entered! 
Other  designs  will  have  their  ov>.’n  subject  groups.  Enter  the  number  and  then  "return."  This 
brings  up  the  first  SUBJECT  GROUP  DATA  SCREEN.  It  will  be  followed  by  additional 
SUBJECT  GROUP  D.ATA  SCREEN(s)  if  you  indicated  that  there  were  multiple  subject 
groups  for  a  particular  design.  Hit  "return"  to  automatically  enter  the  "Qtation  No."  and 
move  the  cursor  to  the  first  data  field. 


Number  of  Exposure  Groups 

As  each  SUBJECT  GROUP  SCREEN  is  completed  one  is  given  the  opportunity  to  indicate 
how  many  exposure  groups  are  associated  with  each  subject  group.  For  example,  one  subject 
group  may  consist  of  60, 30-day  old  male  Sprague  Da  wley  rats  exposed  to  a  diet  containing 
lead  at  a  concentration  of  1 0  ppm  (30  animals)  or  a  control  diet  with  0.05  ppm  (background 
concentration)  of  lead.  The  two  treatments,  10  or  0.05  ppm  lead,  constitute  two  exposure 
groups. 
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Subject  Group  Data  Entry 

SUBJECT  GROUP  DATA  SCREEN 

VMien  this  screen  appears  the  number  designation  of  the  subject  group  you  will  be  entering 
and  the  total  in  that  particular  design  are  indicated  below  the  SUBJECT  CROUP  DATA 
SCREEN. 


Figure  4. 1 
SUBJECT 
GROUP  DATA 
SCREEN 


lEnlar  scorch  critcrio  and  hit  ESC  to  scorch 

I 

ICi lot  ion  Mo .  (  1 

IGrocip  [  ]  of  ( 

I 

I  Species 
It 
I 

I  tiuaber :  I  I 

;s«x:  I  1  ( 

I 

I  Age:  [  Hit  H 

lUeight:  t  It  1  I  H 

(Height:  t  It  1 

I 

lOccupotion  tif  appropriate):  t 
(Health  Status  of  Subjects:  I 


1  of  Design  (  1  { 

Breed 
1  I 


1 

H 


(Total  Huaber  of  Exposures  Receiueo:  I 


SUBJECT  GROUP  DATA  aSEEMl 


t 


Source 
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Exposure  Group  []  of  [  J  of  Design  [  ] 

Note  that  to  the  right  of  this  heading  and  the  subsequent  fields  is  a  statement  "Groupl  ]  of 
(  ]  of  Design  (  J."  These  fields  will  be  filled  in  by  the  system  which  usually  begins  with 
exposure  group  1  of  the  total  number  of  groups.  The  system  derives  information  about  the 
total  number  of  subject  groups  and  exposures  from  the  responses  given  in  the  Design  screen. 

The  designation  for  the  first  group  (they  are  assigned  sequential  numbers)  comes  up 
automatically.  Repetitive  use  of  "return"  will  move  you  through  the  screen. 

The  screen  comes  up  with  the  cursor  on  the  "Species"  field  where  the  common  name  of  the 
animal  used  can  be  entered.  Another  "return"  places  the  cursor  in  the  "Breed"  field. 


Source 

"Source"  is  meant  to  be  used  to  identify  where  the  animals  came  from,  i.e.,  the  firm  which 
raised  them  or  the  agent  from  whom  they  were  purchased. 


Number 


"Number"  refers  to  the  number  of  animals  in  the  group. 
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Figure  4.2 
Suggested 
abbreviations 
for  "Sex" 


Figure  4.3  Ago 
Category  Pop- 
Up  Usi 


Sex 


Figure  4.2  illustrates  the  suggested  abbreviations  for  “Sex." 


The  program  converts  lowercase  letters  to  upper  case  so  there  is  no  need  to  use  the  shift  key. 
There  are  four  spaces  in  the  field  so  it  is  possible  to  use  some  combinations.  If  all  four  spaces 
are  filled,  the  cursor  jumps  to  the  next  field. 


Age 

Animal  age  can  be  represented  in  any  units  using  numbers  in  the  first  field  and  units  of  time 
in  the  second.  When  the  cursor  is  in  the  second  field  a  note  at  the  bottom  of  the  screen 
requests  that  the  units  be  entered.  If  the  agefs)  are  not  given  in  the  report  type  "UNK"  in 
the  space  provided.  You  will  still  be  required  to  enter  a  value  for  "Units." 

Finally,  enter  the  age  category  by  selecting  the  appropriate  number  from  the  pop-up  list 
wlvich  appears  next  (Figure  4J) 


Weight 

Subject  weights  may  be  entered  in  any  form  but  they  are  converted  by  the  program  to  metric 
units  (kilograms).  The  first  field  is  for  a  number  and  the  second  for  the  units  (as  indicated 
by  the  message  at  the  bottom  of  the  screen  when  the  cursor  is  in  the  second  field).  In  the 
event  that  the  subject  weight  s  are  not  given,  enter  "UNK"  in  the  space  provided  for  a 
number.  The  program  still  requires  that  you  enter  a  value  for  units. 

The  program  also  requests  that  you  provide  the  weight  range  of  the  subjects.  Select  a  range 
from  the  pop-up  list  (Figure  4.4). 
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Figure  4.4 
Weight  Range 
List 


Height 

As  for  "Age"  and  "Weight,"  the  first  field  should  be  a  number  and  the  second  a  unit  of 
measure.  Suggested  abbreviations  are  indicated  on  screen. 


Occupation 

Papers  involving  people  will  often  state  their  ocxupation(s).  There  are  twenty  spaces 
available  for  this  dat'.  entry. 


Heaith  Status  of  Subjects 

If  this  is  not  reported  in  the  publication,  leave  tlie  space  blank,  or  mdicate  that  no 
information  is  available.  If  it  is,  tr)-  to  indicate  the  status  in  the  space  provided  or  type  a  more 
lengthy  statement  in  the  comment  section  and  indicate  in  this  field  that  there  are  conrunents. 
(THE  COMMENT  SECTION  IS  NOT  YET  READY  FOR  USE). 
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Exposure  Regimen  Data  Entry 

EXPOSURE  REGIMEN  DATA  SCREEN 

As  with  the  SUBJECT  GROUP  DATA  SCREEN,  you  can  identify  which  group  you  are 
working  with  by  looking  at  the  description  under  the  "Citation  No."  which  tells  you  how 
many  regimens  there  are  (based  on  what  you  typed  in  previously)  and  which  one  you  are 
currently  describing.  The  screen  example  in  Figure  5.1  indicates  that  data  can  be  entered 
for  the  first  of  3  total  regimens  for  the  first  design  that  was  described. 


As  before,  fill  in  the  appropriate  data  by  selecting  from  the  options  available  when  the  cursor 
is  in  each  field.  You  do  not  need  to  fill  in  every  field,  only  those  for  which  there  is  an 
appropriate  response  defined  in  the  report.  For  example,  if  you  indicate  that  there  was  only 
one  exposure,  then  you  need  not  fill  in  the  field  'Tnten'al."  Another  option  is  to  fill  that  field 
witli  the  word  "once." 


Figure  5.1 
EXPOSURE 
RECsMEN 
DATA  SCREEN 


EXPOSURE  REGIMEM  SCREEM 

1  1 


cilotionrio.:  i 
R«giMn  rio.  :  of  t  3!  r«gjni«n«  in  Studg  dtsign  I 


Purpos*  for  Exposur*; 
figtnt:  l| 

Ooss;  ! 

.f^orrautotion:  (^1  i 
Roui«:  i 

Interval; 

Duration:  If  . . 

fldisinistratiyn  f1«thod:  f| 
Sch«dut«d  Euatuation  Tii 


H 
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There  is  no  set  format  for  filling  in  these  spaces  so  try  to  make  the  information  as  descriptive 
as  possible.  Filling  in  all  spaces  in  the  field  causes  the  cursor  to  roll  over  to  the  next  one.  If 
you  do  not  fill  in  all  spaces  in  a  field  you  must  hit  "return"  to  move  to  the  next  field. 


Purpose  for  Exposure 

Select  one  of  the  potential  responses  for  this  field  from  the  pop-up  menu  on  the  right  side 
of  the  screen  by  typing  the  appropriate  abbreviation  in  the  space  provided. 


Figure  5.2 
Potential 
responses 
when  cursor  Is 
In  the 


Figure  5.3 
Potential 
responses 
when  cursor  Is 
In  the 

‘‘Formulation’’ 

field 


'Turpose  for  Exposure"  field 


Agent 

There  should  be  sufficient  space  for  you  to  succintly  define  the  agent  described  in  the  article 
you  are  abstracting. 


Dose 

There  are  two  fields  available.  One  is  for  providing  the  quanity  (amount),  while  the  other 
is  for  the  units  of  measure. 


Formufatton 

The  pop-up  list  to  the  right  of  the  screen,  which  is  reproduced  below,  presents  the  categories 
appropriate  for  this  field.  Type  one  of  the  the  numbers  in  the  "Formulation"  field.  You  need 
to  type  the  leading  zero. 


04.‘'*'Uiquid*'' 
0S'‘*  SprcnJfiY' 

07' ^.Coheetnt- 


Route 

A  pop-up  li  St  wi  th  selections  appropriate  for  this  field  appears  on  the  right  side  of  the  screen. 
The  possiblilites,  which  are  reproduced  below,  should  be  sufficient  to  account  for  m^st 
exposures. 
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Figure  5.4 
Potential 
responses 
when  cursor  Is 
In  the  "Route" 
field 


Interval 

how  often  was  the  agent  administered?  If  it  was  only  once,  then  you  can  leave  this  field 
blank  (hit  "return" ).  If  more  than  once,  give  the  quani  ty  and  units  of  time.  An  abbreviation 
which  can  be  useful  is  "q"  for  the  latin  "quaqiie"  which  means  "every."  For  example,  "q4  hr" 
means  every  four  hours. 

If  there  were  multiple  administrations  and  the  intervals  between  treatments  were  variable, 
there  will  not  be  enough  space  to  list  them  all.  In  order  to  accommodate  this  specific  need, 
use  the  "Comment"  section. 


Duration 

In  instances  where  the  agent  was  administered  over  time,  indicate  the  duration  of  admin¬ 
istration  in  this  field.  It  does  not  matter  what  the  route  might  have  been.  Some  agents  are 
"Commsnt"  section  if  there  were  several  evaluation  times  and/or  nvultiple  parameters 
evaluated  at  different  times. 

When  you  fill  in  the  last  field,  and  assuming  there  are  multiple  regimens,  the  next  regimen 
screen  is  brought  up  with  the  cu;-sor  on  the  "Citation  No."  field.  Hit  "return"  to  fill  it  in. 
Once  again,  the  up  and  down  arrow  (cursor)  keys  enable  you  to  move  between  screens, 
which  in  this  case  are  regimen  descriptions. 

WTien  the  regimen  sCTeen(s)  is/are  completed  for  one  design,  the  STUDY  DESIGN  DATA 
SCREEN  comes  up  and  the  cycle  begins  again  for  each  design.  Please  note  that  "return"  will 
fill  in  the  "Citation  No."  field.  Hit  "return"  when  the  cursor  moves  to  the  "Group"  field. 

When  all  of  the  design,  subject  and  regimen  screens  are  complete,  you  can  establish  the 
proper  links  between  them,  which  constitutes  an  "Exposure  Group.".  This  means  placing 
them  within  the  prop>er  relationships  so  that,  for  example,  the  design  for  the  rabbit  portion 
of  the  study  is  properly  related  to  the  rabbit  subject  group  and  exposure  regimen.  The 
"Links"  screen  is  next. 
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Toxin  KnawJodge  System  Desg/m 


Exposure  Group  Creation 


EXPOSURE  GROUP  LINK  ENTRY  SCREEN 


Overview 

The  EXPOSURE  GROUP  LINK  ENTRY  SCREEN  provides  a  means  of  storing  the  associa¬ 
tions  between  designs,  subject  groups  and  exposure  regimens  with  their  respective  results. 
This  screen  allows  the  user  to  manually  define  the  associations,  which  then  constitute  an 
"Exposure  Group."  This  process  creates  and  stores  a  derived  number  for  the  process  along 
with  brief  descriptions  of  the  design,  subject  group  and  exposure  regimen  for  each 
"Expxjsure  Group." 


Figure  6.1 
EXPOSURE 
GROUP  LINK 
ENTRY 
SCREEN 


Design  Designation 

The  "Citation  No."  can  be  filled  in  using  "return."  "Exposure  Group"  is  not  asking  you  to 
arbitrarily  assign  a  number  or  letter  for  an  exposure  group.  Rather,  the  first  field  is  for 
indicating  the  design  for  which  you  are  setting  up  links  (see  the  arrow  in  the  first  field  after 
"Exposure  Group"  in  Figure  6.1  bove).  Tlie  choices  are  given  in  the  lower  portion  of  the 
screen;  use  the  numbers  to  the  left  of  the  "="  signs,  (see  the  "Dsgn,"  "Subj,"  and  "Expo" 
abbreviations  below  the  words  "Exposure  Group"  in  Figure  6.1,  above).  Entering  a  valid 
design  number  (followed  by  "return")  will  cause  the  conditions  you  entered  earlier  for  that 
design  to  popup(in  abbreviated  for.m)  next  to  "Dsgn."  Also  note  that  as  they  are  areentered, 
an  abbreviated  form  of  each  subject  description  appears  mid-screen. 

The  program  keeps  track  of  each  association  foromed  and  you  can  identify  them  by  using 
the  "ExpoGrp  (  ]  of  (  ]"  indicators  in  the  upper  right  of  the  screen. 
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Subject  Designation 


Figure  6.2 
EXPOSURE 
GROUP  LINK 
ENTRY 
SCREEN  wiih 
cursor  In  the 
"Subject 
Group"  link 
field. 


I  . I 

I  Use  CNTl-P  to  shou)  Previous  page,  CWTL-N  to  shoiii  Next  page  | 


EXPOSURE  CROUP  LINK  ENTRV  SCREEN 


After  the  "Dsgn"  number  is  entered,  the  cursor  moves  to  the  next  field  where  the  letter  for 
the  subject  portion  of  the  link  can  be  entered  (see  Figure  6.2).  Completing  the  second  field 
of  "Exposure  Group"  causes  an  abbreviated  summary  of  the  subject  group  description  to 
appear.to  the  right  of  "Subj:." 


Exposure  Group  Designation 

Once  again,  the  choices  of  regimens  described  previously  are  now  presented  in  the  middle 
of  the  screen,  and  the  cursor  is  in  the  "regimen"  field.  To  choose  a  regimen,  place  the  correct 
regimen  number  selected  from  the  right  of  the  "="  signs  in  the  third  field  of  "Exposure 
Group."  Completing  this  field  causes  the  final  field  in  the  "Exposure  Group"  row  to  show 
the  abbreviations  of  the  previous  three  fields  with  the  number  of  the  design  (D),  subject  (S) 
and  exposure  regimen  (E)  linked  (see  Figure  63). 
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Figure  6.3 
EXPOSURE 
GROUP  LINK 
ENTRY 
SCREEN  with 
relationships 
entered  for 
Design  i, 
Subject  Group 
1  and 
Exposure 
Group  1 


i  I 

|Us«  CNTL-P  to  shou/  Previous  page,  CNTL-N  to  shoai  Next  page  1 


EXPOSURE  CROUP  LINK  ENTRV  SCREEN 


The  cursor  is  now  on  the  last  field  of  "ExpoGrp  [  ]  of  [  ]."  Now  hit  "return,"  clearing  each 
field  and  finally  filling  in  the  citation  number  and  placing  the  cursor  on  the  first  field  to  the 
right  of  "Exposure  Group."  A  total  of  9  "returns"  are  necessary  to  reach  the  point  where 
another  "link"  can  be  established.  The  link  process  can  now  begin  again  for  the  next  subject 
group  for  the  first  design.  Repeat  the  steps  as  described  above. 

When  the  first  design  is  complete,  and  the  cursor  is  on  the  first  field  to  the  right  of  "Exposure 
Group,"  enter  2  for  the  second  design  number  and  repeat  the  entry  steps  until  all  associa¬ 
tions  are  defined.  Complete  all  the  associations  for  each  design,  exposure  group  and 
regimen. 


Completion  of  Current  Entry  Procedures 

This  currently  completes  the  entry  process  for  TKS-MAIN  menu  option  "New."  Other 
segments  are  being  prepared  for  addi  tion  to  the  system,  including  "Comments,"  "Results," 
and  "Ehscussion"  sections. 


I 


29 


1 


FIgurg  7.1 
ABSTRACT 
Menu  and 
options 


Figure  7.2 
SELECT-FILE- 
BY  Menu  and 
options 


The  Add  Path  from  the  ABSTRACT  Menu 


Add 

The  "Add"  option  in  the  ABSTRACT  menu  (the  ABSTRACT  menu  is  reached  by  selecting 
AbstractMgt  in  the  TKS-M AIN  menu)  provides  a  means  for  adding  to  incomplete  citation 
entries.  For  example,  one  can  add  descriptions  of  "Designs,"  "Subject  Groups,"  "Exposure 
Regimens"  and  establish  "Links." 


'rBSTRHCT  :  'ind  Exit 

Add  Citation,  Pap«rCont*nt,  K«guiord*,  or  Not**  to  Existing  Rbstract 


\ _ / 


Selecting  "Add"  brings  you  to  the  "SELECT-FILE -BY"  menu.  From  here,  one  can  search  for 
a  specific  citation  via  the  author-journal- volume  number-first  page  number-and  last  two 
digits  of  the  year,  or,  by  giving  theQtationNo.  (described  earlier).  Theauthor  path  requests 
specific  information  that  you  must  provide  in  order  for  the  search  process  to  begin. 

Completion  of  the  search  process  will  result  in  finding  the  desired  citation,  or  a  message  that 
the  citation  does  not  exist  in  the  database.  If  a  citation  is  not  in  the  system,  you  cannot  add 
anything  to  it  and  will  have  to  start  from  "New"  in  the  AB51RA(T  menu. 


SELECT-FHE-BY  Menu  Overview 

In  order  to  add  information  to  a  file,  we  have  to  tell  the  system  which  file  we  would  like  to 
add  it  to. 


SELECT-FILE-BV: _ 

Find  bg  Ruthor  Ncwi* 


Cl  tatlon-Nufib«r  Exit 


There  are  several  ways  of  locating  the  file  of  interest.  We  can  search  for  it  by  looking  for  the 
first  author's  last  name  or  the  citation  number. 


Author-Name 


This  option  brings  up  a  prompt  which  asks  you  for  the  author's  last  name,  as  indicated  in 
the  screen  below. 


.f .,  '  :'r t.JaHtin  Knowledge  System  De^riptigp 


Figaro  7.3 
SELECT-FILE- 
BY  Author 
path  question 

1 

Last  name  of  first  author  > 

_ —  -  -  —  -  y 

Enter  the  last  name  and  hit  "return."  Now  the  program  prompts  you  for  the  volume  or 
chapter  number. 

Figaro  7.4 
SELECT-FILE- 
BY  Author 
path  question 

2 

^  Nufiib«r  or  Chapter  Humber  >  ^ 

^ - - - - - - - — _ _ _ ^ 

Next,  one  is  asked  for  the  first  page  number  of  the  article. 

Figure  7.5 
SELECT-FILE- 
BY  Author 
path  question 

3 

/ - V 

First  page  number  > 

^ - - - - - - — — _ _ _ 4 

Rnally,  the  last  two  digits  of  the  year  are  requested. 

Figure  7.6 
SELECT-FILE- 
BY  Author 
path  question 

4 

f -  - > 

;  Lest  2  digits  of  year  > 

Cxurently,  you  must  answer  all  of  the  questions  posed  by  this  path  in  order  to  search  for  a 
particular  citation.  In  a  later  version  you  will  be  able  to  search  after  answering  only  one  or 
more  of  the  prompts.  This  v>nll  make  it  easier  under  some  circumstances,  but  will  also  pose 
some  problems  For  example,  searching  via  the  last  name  alone  will  often  result  in  finding 
more  than  one  paf>er  that  matches  the  search  criteria.  The  user  will  then  have  to  cycle 
through  them  to  find  the  desired  one. 


Citation-Number 

Selecting  this  option  prompts  you  for  the  specific  citation  number  (e.g.,  J0021 7-0028-001 89- 
1962)  on  which  to  do  the  search.  Type  in  the  J  or  B  and  the  following  5  numbers,  a  hypen 
and  the  next  4  numbers,  a  hypen  and  5  numbers,  and  the  year,  then  "return." 
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Figure  7.7 
SELECT-FILE- 
BY  Citation 
Number  path 


Figure  7.8 
ADD-DATA 
Menu  and 
options 


/  . . . . . . . . 

Which  citation  number?  j0S217-0100-0B100-1989 
Select  citation  by  number 


\ _ / 


The  program  either  finds  a  match  and  brings  up  the  "ADD-DATA"  menu  asking  what  you 
would  like  to  add,  finds  a  match  and  tells  you  all  data  has  been  entered,  or  doesn't  find  a 
match  and  lets  you  know  that  too.  Make  sure  you  typed  the  citation  number  correctly  before 
trying  to  enter  new  citation  information  (via  the  "New"  option  in  the  "ABSTRACT'  menu), 
if  no  match  was  found. 


ADD-DATA  Menu 

Respond  to  the  SELECT-FILE-BY  menu  prompts  and  you  will  come  to  the  "ADD-DATA" 
menu. 


flDD-OflTR: 


Ci  tatidr^uotci 


?ap*r-Cont«nt  Kaywcsrdi-Hoia*  Exit 


Add  Citation  or  Author  Oata 


At  this  point  you  will  have  three  basic  options  available:  "Ci ta  tion  Data,"  Taper  Content," 
and  "Keywords-Notes."  The  most  commonly  used  option  in  the  current  system  is  "Paper- 
Content,"  which  consists  of  the  "Paper  Overview,"  "Materials  and  Methods  (including 
Subject  Group.s,  Exposure  Regimens  and  Links),"  "Qinical  findings"  (Results)  and  "Dis¬ 
cussion."  Citation  data  is  usually  entered  thjough  the  "New"  path  in  "AbstractMgt"  as 
indicated  above.  Since  you  already  completed  at  least  some  of  the  "Citation-Data"  section 
(otherwise  there  wouldn't  have  b^n  anything  to  find!),  you  will  probably  want  to  use  one 
of  the  other  options. 


CitatJon-Data 

This  selection  allows  you  to  add  citation  data  to  material  that  is  already  in  the  system.  Since 
one  usually  begins  entry  of  a  new  document  by  entering  the  citation,  you  would  not 
ordinarily  need  to  use  this  option  unless  the  dtatio’*  'rad  been  deleted  after  it  was  entered, 
or  the  authors  were  not  entered  or  complete. 


ADD-CtTATiON-DATA  Menu 

Since  citation  data  is  essentially  made  up  of  the  ci  ta  tion  and  author  information,  you  can  add 
those  two  components  by  selecting  one  or  the  other  from  this  menu. 
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Figure  7.9 
ADD- 
CITATION- 
DATA  Menu 
and  options 


Citation 

Selecting  this  option  brings  up  the  familiar  citation  screen.  Its  use  is  documented  in  Chapter 
1.  If  information  is  already  present  in  the  citation  screen  for  this  document,  you  cannot 
change  the  screen  using  this  pathway.  To  modify  it  you  must  use  the  "Upidate"  option  in 
the  'BROWSE"  menu  which  can  be  accessed  via  the  "Find"  path. 


Authors 

Selecting  this  option  brings  up  the  familiar  AUTHOR  DATA  SCREEN  which  can  be  com¬ 
pleted. 

If  there  is  already  information  in  the  author  field(s)  for  the  citation  of  interest,  you  caimot 
change  the  screen  using  this  pathway.  It  is  neccessary  to  use  the  "Update"  option  in  the 
"BROWSE"  menu  accessed  via  the  "Find"  path. 


Figure  7. 10 
AUTHOR 
DATA  SCREEN 
from  ADD- 
CITATION- 
DATA  path 
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ADD‘CONTENT  Menu 


Flg'jrB  7.11 
ADD- 
CONTENT 
Menu  part  I 


Figure  7.1 2 
ADD- 
CONTENT 
Menu  part  II 


The  "ADD-CONTENT'  menu  which  appears  next  requires  you  to  select  the  type  of  data 
that  will  be  entered.  Available  options  include:  'TaperOverview/'  "Materials-Methods," 
"Results,"  and  "Discussion."  One  can  also  go  directly  from  here  to  the  "Find"  pathway  via 
“FindData"  for  doing  updates  or  deletions. 


fiOD-CONTEMT : _  t1at*rials-n«thods 

Add  ovaroiMi  data  ragged ing  tha  papar 


FindOata  Rasutts 


Note  that  the  "  ADD-CONTENT'  options  are  not  all  represented  at  the  top  of  the  screen.  The 
three  periods  (. . .)  indicate  that  there  are  other  options  after  "Results."  Use  the  cursor  to 
move  the  highlighted  option  indicator  past  "Results"  or  to  the  left  of  'TaperOverview."  The 
top  of  the  screen  then  looks  like  the  representation  below.  The  option  string  can  be  viewed 
as  though  it  were  a  circular  continuum,  where  one  can  move  in  either  direction  on  the  circle. 


ftOO-COMTENT: 


Olscuxsion 


Exrt 


Selecting  'Taper-Content"  from  the  "ADD-DATA"  menu  brings  up  the  ".4DDCON- 
TENT"  menu. 


PaperOvervfew 

Selecting  this  option  may  result  in  the  program  reminding  you  that  the  overview  portion  has 
already  been  entered,  and  asking  if  you  would  like  to  "update  that  information."  Selecting 
"y*  followed  by  "return"  will  allow  you  to  modify  that  section.  Selecting  "n"  returns  you 
to  tl.e  "ADD-CONTENT"  menu. 

If  c'ation  information  has  been  entered  but  not  the  "Paper  Overview,"  the  PAPER 
OVERVIEW  SCREEN  will  appear. 


Materials-Methods 

The  "MATERIALS  -iETHODS"  menu  which  comes  up  after  this  option  has  been  selected 
has  options  for  "L  -gn,"  "Subjects,"  "Regimens,"  and  "Links." 
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Figure  7.13 
FAATEHIALS- 
MEWODS 
Menu 


nflTERIfll.S-t1ETH0DS:_  Subjects 

Add  o  design  to  the  paper  information 


Regimens  Links  Exit 


Design 

Select  "Design  "  and  as  that  screen  comes  up,  be  sure  to  note  which  design  is  being  displayed 
(see  the  "Design  No  [  ]  of  [  ]"  statement  to  the  right  of  the  file  number). 

The  Design  screen  is  similar  to  the  one  seen  in  the  "new"  pathway  and  is  discussed  in 
Chap  ter  3.  "Return"  causes  the  screen  to  come  up  with  theCita  tion  No.  and  File  No.  sections 
filled  in.  Type  "return"  until  the  first  empty  field  is  reached  and  begin  filling  in  the 
appropriate  responses.  The  possible  options  are  listed  as  the  cursor  moves  to  each  new  field. 

When  all  the  data  for  that  screen  has  been  entered,  hit  "Esc"  and  the  next  design  screen  will 
come  up  as  indicated  by  thedifferent  "DesignNo.  I  ]."  If  the  "Citation  No."  is  not  displayed, 
hit  "return"  and  it  will  appear. 

When  all  the  design  screens  have  been  completed,  hit  "Esc,"  followed  by  "e"  if  you  are 
finished.  If  the  subsequent  Subject  sections  have  not  been  completed,  the  program  will 
bring  you  to  tliat  section  to  provide  the  necessary  information.  The  entry  process  is  similar 
to  that  described  previously  for  the  SUBJECT  GROUP  DATA  SCREEN  in  Chapter  4. 


Subjects 

This  option  permits  the  addition  of  subject  group  data  via  the  SUBJECT  CROUP  DATA 
SCREEN.  The  process  is  similar  to  that  for  the  SLiB/ECT  GROUP  DATA  SCREEN  described 
previously  for  a  new  paper  in  Chapter  4. 


Regimens 

This  option  permits  the  addition  of  exposure  regimen  data  via  the  EXPOSURE  REGIMEN 
DATA  SCREEN.  The  process  is  similar  to  thatfor  the  EXPOSURE  REGIMEN  DATA  SCREEN 
described  previously  for  a  new  paper  in  Chapter  5. 


Links 

This  option  permits  the  addition  of  the  EXPOSURE  GROUP  LINK  ENTRY  SCREEN.  The 
process  is  similar  to  that  for  the  EXPOSURE  CROUP  LINK  ENTRY  SCREEN  described 
previously  for  a  new  paper  in  Chapter  6. 

When  the  LINK  screen  comes  up,  you  must  hit  "return"  first  and  the  program  will  enter  the 
Citation  No.  and  File  No.  and  show  the  designs  available  to  choose  from. 

ResultsSolecting  "Results"  from  the  "ADD-CONTENT"  menu  brings  up  the  the  "RE¬ 
SULTS"  menu  with  the  "Clinical-Findings"  option. 
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Clinica!_Findings 


Selecting  the  "Clinical_Findings"  option  in  the  "Results"  menu  brings  up  the  CLINICAL 
FINDINGS  DATA  SCREEN.  Refer  to  Chapter  9,  Results,  for  directions  on  using  this  screen. 


FIgurd  7.15 
CLINICAL 
FINDING  DATA 
SCREEN 


This  option  is  not  yet  available  for  use. 


Discussion 


Keywords-Notes 

Selecting  "Keywords-Notes"  from  the  "AD1>DATA"  menu  allows  you  to  add  either 
keywords  or  notes  (comments),  depending  on  what  is  selected  from  the  next  menu. 

ADD-KEYWORDS-NOTES  MenuSelecting  "Keywords-Notes"  from  the  "ADD-DATA" 
menu  brings  up  the  "ADD-KEYWORDS-NOTES"  menu. 
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Figure  7.16 
ADD- 

KEYWORDS- 
NOTES  Menu 


HDD-KEVUOROS-NOTES : , 
Add  Knyujord  Enlri** 


Kegtiords 


Notes 


Exi  1 


Keywords 

Select  "Keywords"  and  the  keyword  screen  comes  up.  Use  of  this  screen  is  documented  in 
the  section  titled  KEYWORD  DATA  SCREEN  in  Chapter  1. 


Notes 

Select  "Notes"  and  the  comment  screen  will  come  up.  Do  not  use  this  option  because  it  is 
under  development. 
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Figure  3.1 
ABSTRACT 
Menu  with  Find 
in  reverse 
video 


Figure  8.2 

FIND-DATA 

Menu 


The  Find  Path  from  the  ABSTRACT  Menu 


ABSTRACT:  Find 

Selecting  "Find"  in  the  ABSTRACT  menu  (the  A.BSTRACT  menu  is  reached  by  selecting 
AbstractM'gt  in  the  TKS-MAIN  menu  as  described  in  Chapter  1),  brings  you  to  the  FIND- 
DATA  menu.  You  can  pick  from  the  options  available. 


'flBSTRflCT;  Add  Exit 

Find  Existing  Abstract  by  Citation,  PaparContant,  Kayiwsrds, 


or  Notes 


FIND-DATA  Menu 

The  FIND-DATA  menu  (below)  allows  ^  ju  to  search  for  citation  data,  paper  content  data, 
and  keywords-notes  data.  In  addition,  the  option  'Top-Down"  provides  the  user  with  the 
basic  CITATION  DATA  SCREEN  which  can  be  used  to  initiate  a  search.  If  the  search  is 
successful,  the  fields  for  this  screen  are  filled  in  including  the  bottom  half  of  the  screen  where 
the  number  of  other  components  associated  with  this  citation  are  given.  In  addition,  a  'TOP- 
EXDVVN"  menu  appears  with  the  data  components  listed  as  options.  This  allows  the  user  to 
go  immediately  to  the  section  of  interest,  e.g..  Authors,  Keywords,  Paper  Overview, 
Design(s),  Materials-Methods,  Results  or  Discussion. 


Cl  tation-Oata 


FINO-OflTA:. 

Find  Citation  or  Author  Data 


Pap«< — Contart  Kaywords-Notas  Tcp-Daan  Exit 


Select  one  of  the  options  and  follow  the  screen  messages. 


Citation-Data 

This  menu  provides  you  with  multiple  methods  of  locating  a  particular  citation.  One  can 
specify  a  Citation  No.,  author(s),  volume  number,  etc.,  or  "(Juery"  for  all  of  those.  One  can 
also  see  the  citations  and  associated  information  in  a  different  format  with  different 
capabilities  ("Raw-Citation").  After  trying  to  "Find"  a  portion  of  an  abstract  and  discover¬ 
ing  it  isn't  in  the  system,  you  can  use  the  "Add"  option  to  add  the  nnissing  component. 
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Figure  8.3 

VlMD-CITflTION-DfiTR:  KSHSSS  Ruthors  Quer<j|-all  Raw-Citation  ... 

FIND- 

Find  Citation  Data 

CITATION- 

DATA  Menu 

and  Options 

^ . . . . . .  . .  . .  -/ 

FIND-CITATION-DATA  Menu 


Citation 

Select  "Citation"  and  the  familiar  "CITATION  DATA  SCREEN"  appears.  Enter  various 
parameters  (wild  card  (*]  searches  are  permit  ed)  and  hit  "Esc"  to  initiate  the  search.  The 
fewer  the  fields  used,  the  less  time  the  search  is  likely  to  take,  but  the  less  specific  the 
outcome.  In  general .  there  won't  be  more  than  a  few  matches  even  if  only  one  field  is  used 
in  the  search  process.  An  exception  might  occur  if  you  search  for  all  papers  associated  with 
a  particular  ioumal  using  the  wild  card  approach  e.g.,  "J(X)217*." 


Figur0  8.4 
CITATION 
DATA  SCFiEEN 
from  tha  FIND- 
CITATION- 
DATA  ^ath 


FIND-CITflTIOM-OflTfl :  K^J32SS||  'Author*  Quary~aU  Rau*-Ci  tali  on 
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I  r 
i  t 
I  { 


Pages : 


CUnTIOM  DRTfi  SCREEN 
1  Pi (•  Mo: t  ] 

File  Loc.:(  ] 

]-t  1  Year:  {  1 


J 

] 

1 

J 


I Uourno I /Book  Title: 

iC  1 

I 

I. Authors  (  I  Kegvords  (  1 

IPoperOver  (  ]  Designs  (  ]  Subjects  I  J  ExpoRegi*  I  1 


Help  Is  'liable.  Hit  Ctrl-U  for  help. 


In  the  sample  screen  below,  the  "Citation  No"  was  used  in  the  search  process.  Since  all 
Citation  No's  are  unique,  one  would  expect  to  find  only  one  match  as  indicated  under  the 
title  of  the  journal  in  the  screen  below.  Note  that  an  additional  menu  appears  sfter  the 
search,  the  "BROWSE"  menu. 
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Figure  8.5 
BROWSE 
Menu  on  the 
CirATION 
DATA  SCREEN 


■IHD-CITflTION-CaTfl:  Authors  Quary-all  Raw-Citation 

IBROUSE:  Previous  First  Last  Update  Delete  Query-flgoin  Exit 

lUiew  the  next  Citation  in  the  list. 

I  CITATION  ORTA  SCREEN 

I Ci  tat  ion  No :  ijP  mssmsmsn  iFHBi]  File  No: 

I  Source:  _  Fi  le  Loc.  :  ih^atal 

lUolume/Chap:  Pages:  Vear:  t(K:Hl 

ITitle' 


J'*  '  t 


I Journa I /Book  Title: 

I  I TOXICOL  RPPL  PHARMACOL 


lAuthors  (  II  XeyiHords  1  21 

jPaperOuer  (  II  Designs  I  21  Subjects  [  51  ExpoAegm  I  51 


- +1 


^alp  is  Quoi loble.  Hit  Ctrl-U  for  help. 


BROWSE  Menu  Overview 

If  the  citation  is  found,  a  "BROWSE"  menu  appears  from  which  one  can  choose  to:  view  the 
"Next"  citation  if  more  than  one  match  is  found;  see  the  "Previous"  citation  if  the  "Next"  * 
or  "Last"  options  were  used;  go  to  the  "Last"  citation  in  the  list  of  more  tiian  one  match  (tlie 
citation  matches  are  arranged  chronologically  in  the  order  in  which  they  were  eneei'ed  into 
the  system);  see  the  "First"  citation  if  you  are  elsewhere  in  ihe  list;  "Update"  (modify  or 
change)  an  entry;  "E>elete"  the  entry  ^own  on-screen  (with  the  option  of  deleting  other 
portions  of  the  data,  e.g..  Paper  Overview,  Design,  etc.);  "(^uery- Again"  which  clears  the 
data  fields  and  allows  one  to  search  for  another  citation;  or  "Exit"  from  the  program. 

Not  all  of  the  options  are  visible  at  the  top  of  the  screen  at  one  time.  To  see  the  others,  use 
the  right  and  left  (horizontal)  arrow  keys  to  move  among  the  selections  and  see  those  on  the 
right  after  the  "...."  notation  When  the  first  option  is  highlighted  (Next)  you  can  use  the  left 
arrow  key  to  see  the  end  of  the  option  list  Qiorizontal  wrap  around  for  the  BROWSE  option 
list). 

The  first  few  BROWSE  options  as  identified  below,  should  require  no  further  explanation. 


Last 
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Update  (Citation) 

Selecting  "Update"  places  the  cursor  on  the  'Source'  fieid.  You  can  cycle  through  the  data 
fields  by  using  the  "return"  key  which  functions  in  only  one  direction,  or  the  left  and  right 
arrow  keys. 

Change  the  appropriate  field(s>  and  hit  "Esc"  when  you  are  dni_hed.  Wait  for  the  cursor  to 
return  to  a  data  field  or  me'  lu.  This  procedure  writes  the  updated  information  to  memory. 

The  "Author"  screen  comes  up  next.  Hit  "Esc"  as  indicated  at  the  bottom  of  the  screen.  The 
program  will  ask  if  you  want  to  update  the  author  list.  If  you  select  "n"  the  author  screen 
is  skipped  and  the  keyword  list  comes  up.  Selecting  "y"  places  the  cursor  on  the  first  data 
field  in  the  author  screen.  Change  it  if  necessary,  or  use  the  arrow  or  return  keys  to  cycle 
through  the  fields.  Modify  the  entries  or  type  in  new  authors,  and  then  hit  "Esc." 

The  "Keyword"  screen  appears  next,  and  the  same  process  occurs  again.  Refer  to  the  earlier 
section  on  keywords  in  the  "New"  path  (Chapter  1)  for  information  on  this  screen.  When 
you  are  finished  modifying  this  screen  hit  "Esc." 

This  completes  the  "Update"  process  for  citations.  The  program  returns  you  to  the  citation 
screen  with  the  "BROWSE"  menu.  Hit  "e"  to  exit  from  this  environment  and  return  to  the 
FIND-aTATION-DATA  screen. 


Delete 

Invoking  the  'TDelete"  opHon  from  the  "FIND-ClTATION-DATA->Citation"  pathway 
brings  up  a  menu  titled  "DEL-JOURNAL-CIT." 


FIguro  3.S 
QFJ.ETE 
JOUfliML-OT 
Menu  of 
CITATION 
DATA  SCREEN 
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’'Ivronw-  found 


I  Authors  C  il  Kagwords  I  21 

IPoparOuar  (  1)  Oasigns  I  21  Subjacts  C  SI  ExpoRaga  I  51 


Ha(p  is  ovoi  loblt 


Hit  Ctrt-U  for  halo. 


The  options  available  are  "This-Table"  which  deletes  the  table  indicated  on  the  screen  and 
"All-Tables"  which  deletes  a/1  of  the  screens  associated  with  that  citation  (Paper  Overview, 
Design,  Subjects,  Regimens,  Links,Comments,  etc.). 


Deletion 

Promp: 


Delete  All 
Tables  Prompt 


Figured.? 
AUTHOR 
DATA  SCREEN 


Safe-guards  are  built  in  to  prevent  the  latter  from  happening  unless  you  are  sure  that  is  what 
you  want.  The  program  gives  a  warning.  If  you  choose  "This-Table"  the  following  question 
is  asked: 

fire  you  sure  you  want  to  delete  this  entry?  <y/n) 

Delete  just  the  data  in  the  citation  table 

If  you  choose  "All-Tables"  the  program  responds  with  this  question: 


tiGia*iuireyyoU’‘^wcint  to  delete  this  ehtrtf  abh^t^J,es?'''<y /«>- 


If  you  respond  "n,"  "return,"  you  are  brought  back  to  the  'FIND-QTATION-DATA- 
BROWSE'  menu.  If  you  respond  "y,"  "return,"  the  screen  sends  messages  as  each  table 
(screen)  is  deleted.  There  is  no  way  to  stop  this  process  once  it  begins! 


FIND-CITATION-DATA  MENU  (Continued) 


Authors 

The  author  screen  can  be  upxiated  indirectly  as  described  above  under  BROWSE:  Update 
(Gtation),  or  directly  using  the  "FIND-QTATION-DATA"  path  as  described  below. 

Selecting  "Authors"  from  the  "FIND-CITATION-DATA"  menu  brings  up  the  author  screen 
with  the  cursor  on  the  citation  number  field. 
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Enter  the  citation  number  and  then  Esc."  The  screen  comes  up  with  a  message  in  the  lower 
left  comer  indictating  how  many  matches  were  found  and  asks  you  to  hit  "Esc"  to  continue. 
A  Browse  menu  appears  with  options  similar  to  those  describe  above  under  "Gtation." 


Author  and  AuthSig 

This  screen  can  also  be  used  to  identify  articles  where  an  author  holds  a  particular  place  in 
the  author  sequence.  Forexample,ifyou  wanted  to  determine  the  "Citation  No."  associated 
with  a  particular  paper  where  Ueno  was  the  last  name  of  the  first  author,  you  could  select 
"Authors"  in  the  "nND-QTATiON-DATA"  menu,  use  the  "Return"  key  to  move  past 
"Gtation"  and  "Citfile"  to  the  "Author"  field,  enter  "Ueno  Y"  (or  'TJeno  Y*"  using  the  wild 
card  in  case  someone  entered  only  one  initial),  followed  by  "Return."  Enter  "1"  in  the 
"AuthSig"  field  followed  by  "Esc"  to  start  the  search.  The  program  will  locate  all  citations 
fitting  those  criteria  and  you  can  "BROWSE"  through  them  to  locate  the  particular  one  of 
interest  and  obtain  the  desired  number. 
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Query-All 

This  option  provides  a  mechanism  to  search  for  citation,  authors  or  keywords  and  gives  a 
screen  showing  all  of  those  components  if  a  match  is  found. 

When  "CJuery-all"  is  chosen  the  screen  below  appears  with  the  cursor  in  the  "Gtation 
Number"  field.  Use  the  "return"  or  cursor  keys  to  select  other  fields.  You  can  also  utilize 
individual  items  from  several  of  the  component  parts  (fields)  to  narrow  down  the  number 
of  matches  that  may  be  found.  For  example,  you  could  enter  the  year  of  publication,  an 
author  name  and  a  keyword,  if  you  cannot  remember  specifics  such  as  the  "Gtation  No," 
"Joumal/Book  Code"  and  "Pages." 

Please  note  that  you  cannot  do  multiple  searches  within  a  particular  field.  For  example,  you 
cannot  search  for  two  "Authors"  or  two  "Keywords"  at  the  same  time.  The  program  keeps 
you  from  trying  because  it  moves  the  cursor  to  another  section  as  soon  as  you  place  data  in 
a  particular  field 
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Figure  8.9 
OUERY-BY 
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DATA  SCREEN 
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RaW'Citation 

This  option  invokes  another  program  which  provides  access  to  data  in  the  TKS  System.  It 
is  meant  to  be  used  by  developers  of  the  TKS  System  and  consists  of  data  fields  and  their 
abbreviations.  It  is  neccessary  to  be  familiar  with  the  saeens  in  the  TKS  system  in  order  to 
interpret  the  abbreviations.  One  can  access  the  citation  data  only,  from  the  Raw-Ctation 
option  (two  different  table  types  which  can  be  seen  by  using  the  "Detail"  and  "Master" 
options). 

Explanation  of  the  various  options  can  be  found  under  the  "Ugly-View"  section,  below. 


Data-Add 

This  option  provides  a  mechanism  for  adding  data  citation  components  if  a  search  via 
"FIND"  is  unsuccess  ful.  Selecting  it  brings  the  cursor  to  an  "SELECT-FILE-BY"  menu  from 
which  the  appropriate  path  (Author-Name  or  Citation-Number)  can  be  selected  for  iden¬ 
tifying  the  citation.  Use  of  the  "SELECT-FILE-BY"  menu  is  described  in  Chapter  7. 
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Toxin  Ki}Oi/ifI^dge  System  Descripj^on 


FIND-DATA  Menu  (Continued) 


Paper-Content 


Figure  8.10 
FIND-DATA 
Menu 


FINO-DflTn:_  Ci tation-Oato  gj 
Find  th«  contents  of  the  paper 


aperHSpntent 


Keyuiords-tio  tas  Top-Down  Exit 


To  find  the  data  components  associated  with  the '  Papwr-Content"  (PaperOverview,  Mate- 
rials-Methods,  Results  and  Discussion),  choose  "Paper-Content"  from  the  "FIND-DATA" 
menu.  The  'Tff'TO-CONTENT'  menu  then  appears. 


FIND-CONTENT  Menu 


Figure  8.11 
Entire  pind- 
CONTENT 
Menu 


FirtD-COhTEMT:_  Mater  la  ls-f1»thods 

Find  o^ferviee  data  regarding  the  paper 


hdd-Oa  ta  Results 


(^i;iD-COMTEMT;_,  Ugly-Oiew  Discussions 


In  addition  to  the  components  described  above,  one  can  also  access  the  "Add"  path  and 
obtain  the  "Ugly-View"  of  the  data. 


PaperOverview 

When  this  option  is  selected,  a  replica  of  the  PAPER  OVERVIEW  SCREEN  comes  up  with 
the  cursor  on  the  "Glation  No."  field  and  the  statement  "Enter  search  criteria  and  hit  ESC 
to  search."  One  can  search  via  any  of  the  fields  represented  on  the  screen,  (use  the  "return" 
or  cursor  keys  to  move  among  the  fields)  but  the  "Citation  No."  and  "File  No."  fields  will 
be  most  commonly  used. 

Enter  the  Citation  No.  for  the  paper  you  wish  to  find  and  then  "Esc."  The  program  will 
search  and  indicate  how  many  matches  were  found,  and  a  "BROWSE"  menu  will  appear 
(see  Figure  8. 1 2,  below).  The  "BROWSE"  options  are  explained  under  Find-Citation,  above. 
There  is  no  "Query-Again"  option  in  this  "BROWSE"  menu. 
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Figure  8.12 
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t  S3] 
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Materlals-Methods 

Choosing  this  option  brings  up  the  "MATERIALS-METHODS"  menu  where  one  can  then 
choose  from  the  options  "Design,"  "Subjects,"  "i^egimens,"  and  "Links." 


MATERIALS-METHODS  Menu 

The  options  available  with  this  menu  are  illustrated  in  the  screen  below.  Selecting  one  of 
the  options  brings  up  the  unique  data  screen  associated  with  that  particular  option.  Since 
this  is  part  of  the  "Find"  path,  associated  with  each  screen  is  a  message  asking  the  user  to 
"Enter  search  criteria  and  hit  ESC  to  begin  search."  One  can  use  any  field  or  combination 
of  fields  to  initiate  the  search  process. 


fhflTERIRLS-tlETHOOS : 

Find  a  dasign  ta  iha  papar 


Design 


Subj  ac Is  Rag i mans 
information 


Links  Exit 


When  a  search  is  successful  the  program  brings  up  a  screen  with  data,  tells  you  how  many 
rows  matching  the  search  criteria  were  found,  and  brings  up  a  "BROWSE"  menu.  Docu¬ 
mentation  for  the  "BROWSE"  menu  can  be  found  in  Chapter  7,  however,  several  additional 
comments  should  be  made. 
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Find->BROWSE  Menu 


Toxin  Kno\ 


Update 

This  option  provides  a  method  for  altering  data  that  has  already  been  entered.  Cycle 
through  the  fields,  making  corrections  as  necessary,  and  hit  "Esc"  when  you  are  finished, 
as  indicated  by  the  on-screen  message. 

If  you  are  located  in  a  section  which  has  multiple  screens  such  as  multiple  "Designs," 
"Subject "  groups,  "Regimens,"  etc.,  you  will  notice  that  if  you  page  back  and  forth  between 
them  (using  the  up  and  down  cursor  keys)  that  it  appears  that  the  data  you  had  changed  is 
back  in  its  old  form!  Please  be  aware  that  this  is  not  so.  The  data  has  been  changed  if  you 
had  hit  "Esc"  appropriately.  In  order  to  see  the  newly  altered  data  it  is  necessary  to  exit  from 
the  current  menu  and  go  back  to  it,  doing  another  "Query"  to  pull  up  the  same  screens. 

Please  note  that  some  fields  require  that  you  re-enter  data  in  order  to  cycle  through  the  entire 
saeen.  This  is  awkward  at  times  since  there  is  a  risk  of  inaccurately  entering  information. 
We  are  considering  improving  this  feature. 


Delete 

In  each  case  a  protective  message  appears  when  "Delete"  is  selected.  You  are  asked  "Do  you 
want  to  delete  this  <comf)onent>  (y/ n),"  with  the  component  being  the  particular  section 
just  found.  You  must  type  in  the  desired  letter  (y  for  "yes"  and  n  for  "no").  What  happens 
next  is  somewhat  dependent  on  the  component  you  are  trying  to  delete.  The  following  is 
an  example;  Deleting  a  design  gives  you  the  option  to  delete  only  the  design  on  screen,  or 
the  VI  bie  design  screen  and  all  of  the  screens  from  that  point  forward  (Subjects,  Regimens, 
Links,  c.).  The  same  is  true  of  "Delete"  and  the  other  components  of  paper  content;  you 
can  eitl'.^r  delete  the  data  on  that  screen  alone,  or  that  screen  and  all  saeens  linked  after  it. 

The  ?.creer.  .  '.essages  should  provide  sufficient  information  tc  allow  you  to  complete  the 
"Delete"  prof.ass. 


Query-Again 

Selecting  this  option  enables  you  to  pjerform  another  search  immediatley.  The  screen  is 
cleared  of  data  and  the  cursor  is  plac^  on  the  first  field,  which  is  generally  "Citation  No." 


Add-Data 

Selecting  this  option  brings  up  the  "SELECT-FILE-BY"  menu  which  provides  two  methods 
for  locating  data,  the  "Author-Name"  and  "Citation-Number"  paths.  The  "SELECT-FILE- 
BY"  menu  and  how  to  use  it  is  documented  in  Chapter  7.  When  the  search  is  successful  the 
"ADD-DATA"  menu  apjaears.  It  is  also  documented  in  Chapter  7. 

ResultsChoosing  "Results"  from  the  "FIND-CONTENT"  menu  brings  up  the  "RESULTS" 
menu  which  is  illustrated  below.  This  menu  has  one  option,  "CinicalFindings."  Selecting' 
the  it  brings  up  the  CNN/CALF/ND/NCS  DATA  SCREEN.  This  section  is  not  yet  ready  for  use. 
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Figure  8.14 
RESULTS 
Menu  from  the 
FIND- 

CONTENTpath 


Figure  8.15 
CLINICAL 
FINDINGS 
DATA  SCREEN 


fisULTS:  Exit 

Find  Findings  entered  from  Study 
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RESULTS: 


Exit 
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CLINICAL  FINDING  DATA  SCREEN] 

II  t  1 


jClinlcol  Finding: 
[ 


I  Change 
i|l( 

IFreq 


Seuar i ty  Uni ts 


Ugly-Vldw 

This  option  is  used  priniarily  as  a  developmental  tool  by  the  program  developers.  Its  i3e 
is  documented  in  Appendix  A. 


Discussion 

This  option  is  not  yet  implemented.  Selecting  it  results  in  a  message  to  that  effect  appearing 
on-screen. 


Keywords-Notes 

Selecting  this  option  brings  up  the  "FIND-KEYWORDS-NOTES"  menu  with  the  options 
indicated  in  the  top  of  Figure  8.16,  below. 
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FIND-KEYWORDS-NOTES  Menu 

The  "Keywords"  option  brings  up  the  KEYWORD  DATA  SCREEN  and  the  usual  "Enter 
search  criteria  and  hit  ESC  to  search"  message.  One  may  search  for  ail  "Keywords" 


Figure  8.16 
FIND- 

KEYWORDS- 
NOTES  menu 
and  KEYWORD 
DATA  SCREEN 


Figure  8.17 
The  FIND- 
DATA  Menu 
with  Top-Down 
highlighted 


associated  with  a  particular  citation  by  entering  the  appropriate  "Citation  No."  or  for  all 
papers  contaiiung  a  particular  "Keyword."  Please  note  that  you  can  only  search  for  one 
“Keyword"  at  a  time! 

If  a  search  is  successful,  the  findings  are  put  on-screen  and  the  typical  "BROWSE"  menu 
appears.  Use  of  this  menu  is  documented  above,  and  in  Chapter  7. 
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Notes 

This  option  will  provide  a  mechanism  to  record  specific  comments  about  a  paper.  It  is  not 
yet  ready  for  use. 


Query-Ail 


Use  of  this  option  was  documented  earlier  in  this  chapter. 

Top-DownChoosing  "Top-Down"  from  the  "FIND-DATA"  menu  brings  up  the  CITATION 
DATA  SCREEN  with  a  message  asking  you  to  "Enter  search  criteria  and  hit  ESC  to  search." 


FIM0-0fiTR:_  C i tot ion-Dola  Pop«i — Content 
See  ott  tobies  for  o  selected  citation 


Keyeords-ttotes  ggy 


HDoutri 


Exit 
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Figure  8.18 
Selecting  Top- 
Down  brings 
up  the 
CITATION 
DATA  SCREEN 
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One  may  choose  to  search  using  any  of  the  standard  fields  or  combinah'ons  of  them.  The 
fields  in  the  lower  part  of  the  screen  cannot  be  searched. 

If  a  search  is  successful,  the  "BROWSE"  menu  comes  up.  If  there  are  multi  nle  matches,  such 
as  might  occur  if  you  search  by  "Source"  or  use  a  wild-card  in  the  "Citation  No."  or  "File 
No"  fields  (J00217*  or  SMIT*),  the  "BROWSE"  menu  will  help  you  to  move  among  the 
selections.  If  only  one  match  was  found,  or  you  come  to  the  desired  selection,  hit  "e"  for  exit, 
and  the  TCP_DOWN  menu  appears. 

The  TC)P_DOWN  menu  gives  you  immediate  access  to  all  the  data  components  of  a 
particular  paper  by  just  selecting  from  its  list  of  options  (see  RgTjres  8.19  and  8.20).  Selecting 
from  the  list  brings  up  the  associated  data  screen  which  should  be  familiar.  When  there  are 
several  components,  such  as  multiple  subject  groupjs,  the  "BROWSE"  menu  which  appears 
allows  you  to  move  between  them. 
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Figure  8.19 
CITATION 
DATA  SCREEN 
with  first  part 
of  TOP_DOWN 
menu 
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Figure  8.20 
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Results  ->  Clinical  Findings 


CLINICAL  FINDING  DATA  SCREEN 


Completing  the  "Links"  in  the  "New"  pathway  from  the  ABSTRACT  menu  or  selecting 
"Results"  from  the  ADD-CONTENT  menu  brings  up  the  CUNICAL  FINDING  DATA 
SCREEN  shown  in  Figure  9.1. 


FIguroB.I 
CLINICAL 
FINDING  DATA 
SCREEN 


IPrass  F7  or  CMTL-0  to  s««  ovoitablc  Exposura  Groups 

CLINICflL  FINDIHC  DATA  SCFEEHl 

iCi  lotion  ttuabar: 


Results  are  generally  different  for  each  treatment  group.  Therefore,  the  first  step  in  entering 
results,  which  are  also  referred  to  as  "Qinical  Findings  "  is  to  define  the  particular  exposure 
group  whose  results  you  wish  to  enter.  As  you  might  expect,  and  as  the  message  at  the  top 
of  the  screen  (or  Figure  9.1)  indicates,  the  program  will  show  you  the  exposure  groups 
associated  with  the  citation.  These  were  previously  defined  in  the  "Link"  screen. 

Press  function  key  7  (FT)  or  the  control  and  G  keys  (CNTL-G)  and  a  screen  similar  to  that 
shown  in  Figure  9.2  will  appear. 
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Figure  9.2 
TKSEXGRP 
DATA  SCREEN 


Press  F7  or  CNTL-G  to  sea  avai labia  Exposure  Groups 


C  i  tali  or 
Expo^  Grp  : 

Cl  In  leg  I 

!IB 

Change 


I  TKSEXGRP  DATA  SCREEN  I 

IITotal  ExpoGrp;  ij^l  Citation  hum;  I 
I  Exposure  Group  Coda:  (D1.S2.E2  I  (  21 1  I 
|Dsgn:[2  GRP,  2  EXP,  CHTL  II 
|Subj:[12  RRT,  flga:  UMK  U,  Ut:  UHK  KG,  Sax:  B,  EXP  1| 
lExpo:  tT-2  IH  HOULDV  SORGHU,  23  hC,  PO,  giuan  DfilLV  x  16  WEEKS  II 

l‘  ' 

|| Exposure  Group  Coda:  (D2.S1.E1  II  221  I 
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ISubj:t6  hOMKEV,  flga:  UMK  V,  Wt:  2-3  KG,  Sax;  8,  EXP  II 
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I  1 
I  Exposure  Group  Coda:  (02.S2.E2  I  I  231  I 
lDsgn:(3  GRP,  3  EXP,  CMTL  j| 
|SubJ:t4  ttONKEV,  flga:  UMK  V,  Wt:  2-3  KG,  Sex;  8,  EXP  j| 
lExUsa  T-2  TOXIN  FROM  NOULO,  18.5  NG/KG,  PO,  giuan  DflILV  x  15  DflVS  i| 


TKSEXGRP  DATA  SCREEN 

This  screen,  which  overlays  the  CLINICAL  FINDINGS  DATA  SCREEN  shows  how  many 
exposure  groups  exist  for  this  citation  ("ExpoGrp:  (  ]"  in  upper  left  comer).  You  may  scroll 
through  tthe  groups  by  using  the  up  or  down  cursor  (arrow)  keys  or,  with  some  terminals, 
the  return  key.  There  are  often  no  significant  findings  for  control  groups  so  you  can  skip  to 
'  a  treatment  group  which  has  imoortant  clinical  findings. 

In  the  above  example  the  user  has  skipped  to  Exposure  Group  Code  D2.S2.E2  as  indicated 
by  the  presence  of  the  the  cursor  under  the  "D"  in  the  row  with  a  "23"  to  the  far  right.  When 
the  cursor  is  in  the  right  place,  Iiit  "E.sc"  and  the  abbreviated  descnption  is  placed  in  the 
appropriate  field  as  indicated  in  Figure  9.3. 

Figure  9.3 
CLINICAL 
FINDING  DATA 
SCREEN  with 
Expo  Grp  Field 
Filled 


If  the  user  now  hits  the  "return"  key,  information  describing  the  selected  group  isdisplayed 
as  shown  in  Figure  9.4. 


Figure  9.4 
CLINICAL 
FINDING  DATA 
SCREEN  with 
Expo  Grp 
Description 
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I  Exposure  Group  that  produced  effect 


Type  Field  of  CLINICAL  FINDING  DATA  SCREEN 

Another  "return"  brings  up  the  options  for  the  'Type"  tiold  as  shown  in  Figure  93. 


Figure  9.5 
Options  for 
“Type"  field 
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Toxin  Knowl^ge  System  Descriptionl 


Select  from  the  three  choices  by  typing  an  "M"  for  "Pathology  Results,"  "L"  for  "Laboratory 
tests"  or  "Procedure  Results,"  or  "S"  for  "Clinical  Signs"  or  "Disease  Findings."  Your  choice 
influences  what  will  be  seen  next. 


Pathology  Results 

Selecting  "M"  for  "Pathology  Results"  brings  up  the  SCREEN  with  a  "body  system"  list 
overlay. 


Figure  9.6 
Body  System 
List 
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Choose  the  system  related  to  the  clinical  finding  you  wish  to  describe.  In  the  example  given 
in  Figure  9.7,  system  "B,"  "DIGESTIVE  SYSTEM"  was  chosen. 
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Upon  hitting  "return"  as  indicated  at  the  top 
appears. 


list 


Figure  9.8  List 
Presented 
when  Organ 
Code  “8"  is 
selected 


The  message  at  the  bottom  of  the  screen  tells  the  user  to  scroll  through  the  list  using  the 
cursor  (arrow)  keys  and  then  hit  "Esc"  to  make  a  selection.  Please  be  aware  that  the  list 
continues  beyond  the  lower  lirrtit  of  the  stTcen! 

In  our  example  the  user  has  saclic'd  to  number  59  "EXOCRINE  PAIviCEEAS"  and  hit  "Esc," 
causing  the  code  to  be  entered  in  the  field  after  "Organ:."' 


Figure  9.9 
Organ  Code 
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Figure  9.10 
Location  List 
for  Code  59 


Figure  9.11 
TKS  Site  Field 
Filled 


Once  again,  the  program  leadsyou  through  the  process,  telling  the  user  to  hit  return  to  select 
a  specific  site  (Location),  in  the  message  at  the  top  of  the  screen. 


Use  the  "return"  key  to  fill  in  the  "TKS  Site"  field. 
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It  is  now  time  to  locate  the  specific  descriptor  for  the  lesion  using  the  TKS  FINDING  SYN¬ 
ONYM  SCREEN. 
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Clinical  Finding  Synonyn 
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Figure  9.12 
TKS  FINDING 
SYNONYM 
SCREEN 


Enter  your  search  criteria  and  hit  "Esc."  In  the  example  below,  the  user  was  searching  for 
"inflammation"  and  used  an  abbreviation  since  the  system  could  have  it  listed  as  inflamma¬ 
tory  or  some  other  similar  tenn.  In  addition,  wild  cards  were  used,  both  before  and  after  the 
abbreviation. 


Figure  9.13 
Search  Crilerfa 
In  TKS 
FINDING 
SYNONYM 
SCREEN 
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Figure  9.14  shows  the  partial  listing  obtained  after  the  search  using  *INFLAMM*.  Note  that 
if  the  prefix  wild  card  had  not  been  used  the  first  two  items  (and  some  others  later  on)  would 
not  have  been  found.  If  the  suffix  had  not  been  used,  no  match  would  have  been  obtained 
since  there  is  no  word  with  just  INFLAMM,  even  with  the  wild  card  prefix.  Scroll  through 
the  list  until  you  reach  the  item  of  interest  and  hit  "Esc"  to  enter  the  information  in  the 
CLINICAL  FINDING  DATA  SCREEN  and  open  the  "change"  overlay. 


Figure  9.14 
List  Found 
after  Search 
Using 
•INFLAMM- 
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Figure  9.15 
Choices  for 
“Change”  field 


The  choices  for  the  "Qiange"  field  in  the  TKS  FINDING  DATA  SCREEN  are  illustrated  below. 
Type  the  appropriate  number  and  hit  "return." 
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Figure  9.16 
Completed 
CLINICAL 
FINDING  DATA 
SCREEN 


It  now  remains  for  the  user  to  indicate  the  "Severity"  or  value  of  the  result  along  with  the 
units,  the  "Frequency"  of  appearance  of  the  path  result  among  the  experimental  units,  the 
time  of  "Onset"  of  the  result  and  its  "Duration."  Follow  the  on-screen  messages  and 
prompts. 
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Upon  completion  of  these  fields,  the  user  can  hit  "return"  and  the  process  will  begin  anew 
for  the  next  clinical  finding.  WHEN  YOU  ARE  FINISHED  ENTERING  DATA  HIT  "Esc" 


LaboratQn//PTOc&dur&  Rssults 

When  "L"  is  chosen,  the  sample  matrix  list  is  presented  (Figure  9.17).  Select  the  type  of 
sample  which  provided  the  material  for  the  lab  test  or  procedure  by  typing  the  proper  letter. 


Figure  9.17 
Sample  Matrix 
Overlay 
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Hie  test  category  list  comes  up  next  (Figure  9.18).  Select  the  appropriate  classification. 


Figure  9.18 
Lab  Test 
Categories 
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Now  use  the  TKS  FINDING  SYNONYM  SCREEN  to  search  for  the  particular  parameter  of 
interest. 


Figure  9.19 
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In  the  example  shown  in  Figure  9.20  the  user  was  looking  for  "calcium." 


Figure  9.20 
TKS  FINDING 
SYNONYM  • 
SCREEN  with 
"CALCIUM" 
search 
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Clinical  Finding  Sgnonyn 
[•CRLCIUM'* 


Scorching. 


Searching  for  that  word  alone  is  unlikely  to  result  in  an  exact  matchi.  It  is  generally  necessary 
to  use  the  wild  card  symbol  one  or  more  times  to  increase  the  chances  or  a  match.  Type 
the  search  term  and  then  hit  "Esc"  to  initiate  the  seardr.  If  it  is  unsuccessful  you  will  be 
brought  back  to  the  sample  matrix  screen  to  start  the  prtxjess  again.  If  successful,  there  is 
usually  more  than  one  match  {as  shown)  and  you  can  choose  among  them  using  the  cursor 
(arrow)  keys. 


Figure  9.21 
Result  of 
search  using 
'CALCIUM' 
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Hit  "Esc"  when  the  cursor  is  on  the  correct  line  and  the  data  will  be  entered  in  the  "Qinical 
Finding"  field  and  the  descriptors  associated  with  the  parameter  "Qiange"  will  be  pre¬ 
sented.  Choose  one  from  the  list  (Figure  9.22)  and  then  hit  "return." 


Figure  9.22 
Descriptors  for 
changes 
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Hit  "return"  again  to  enter  the  value  in  the  "Change"  field  and  move  to  the  "Severity"  field. 
Enter  the  lab  value  if  there  isone,  or  a  descriptive  term  (mild,  moderate,  severe),  hit  "return," 
and  enter  the  "Units,"  (hit  "return"  again  if  you  wish  to  skip  this  field)  followed  by  another 
"return"  to  move  to  the  "Freq"  field. 

The  fretjuency  provides  a  means  to  define  the  proportion  affected.  As  the  message  at  the 
bottom  of  the  screen  indicates,  give  the  number  affected  /  the  total  exposed  for  this  group. 

Next,  indicate  the  time  of  "Onset"  of  the  change,  or  the  time  it  was  identified. 


Figure  9.23 
Completed 
CLINICAL 
FINDING  DATA 
SCREEN  (Lab/ 
Procedure) 
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Figure  9.24 
Body  System 
Overlay 


Finally,  the  time  at  which  the  change  was  identified  is  entered  in  the  "Onset"  field,  and  then 
the  length  of  time  the  change  was  present  in  the  "Duration"  field.  The  appearance  of  a 
completed  screen  is  shown  in  Figure  9.23. 

When  you  are  finished  entering  data  hit  "Esc,"  to  place  the  data  in  permanent  memory. 


Signs/Disease  Findings 


Selecting  "S"  from  the  "Type"  list  brings  up  the  body  system  overlay  which  enables  you  to 
choose  the  system  associated  with  the  sign  or  disease  (Figure  9.24). 


After  making  your  selection,  the  TKS  FINDING  SCREEN  appijars  and  you  can  enter  your 
search  term,  using  wild  card(s)  if  necessary.  (See  the  discussions  for  Pathology  Results  and 
Lab/Procedure  Results  for  additional  information  on  these  searches) 

In  the  example  below,  the  search  term  was  "‘VOMITING*." 


A, - : - 


Figure  9.25 
Search  Term 


Clinical  Finding  Sgriongn 
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Figure  9.26  illustrates  the  results  of  that  search. 


Figure  9.26 
Results  after 
Search  on 
•VOMITING’ 
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Place  the  cursor  on  the  desired  line  (B01673  in  the  above  example),  and  hit  "Esc"  to  enter  the 
information  in  the  "Qinical  Finding"  field. 

Next,  select  the  type  of  change  by  entering  the  number  from  the  list,  followed  by  "return." 


Figure  9.27 
Type  of 
Change 
Overlay 
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Now,  proceed  through  the  steps  to  describe  the  "Severity"  of  the  change  as  a  measured 
parameter  with  "Units,"  or  as  a  subjective  grade  (e.g.,  mild,  moderate,  severe),  the 
"Frequency"  of  occurrence  of  the  change  among  experimental  units,  the  time  of  "Onset," 


and  the  "Duration"  of  time  the  change  was  observed.  A  completed  screen  will  appear 
similar  to  Figure  9.28. 


Figure  9.28 
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When  the  saeen  is  complete  hit  "return"  to  bnng  up  a  new  screen  to  start  the  process  again 
for  another  clinical  finding,  or  hit  "Esc"  to  place  the  data  in  system  memorj-’. 


Modifying  Clinicai  Findings 

The  CLINICAL  FINDING  DATA  SCREEN  can  be  modified  using  the  "BROWSE"  menu 
which  is  obtained  after  the  screen  for  a  particular  citation  is  located  via  the  "Find"  pathway 
from  the  "ABSTRACT"  menu,  or  by  selecting  "FindData"  from  the  "ADD-CONTENT" 
menu. 


Adding  Clinical  Findings 

One  can  add  Qinical  Findings  to  a  citation  by  following  the  "Add"  pathway  beginning  in 
the  "ABSTRACT"  menu,  or  by  selecting  "AddData"  from  the  FIND-CONTENF'  menu. 
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Figaro  A.  1 
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Appendix  A 


FIND-CONTENT:  Raw-Citation  and  Ugly-View 

Tliese  options,are  used  to  obtain  another  view  of  the  data  associated  with  a  citation.  It  is  a 
different  program  used  primarily  as  a  developmental  tool  and  should  not  be  used  by  the 
neophyte.  DO  NOT  USE  THIS  OPTION. 

Access  to  this  view  will  become  limited  as  the  database  program  becomes  fully  operational. 

"Raw-Citation"  is  the  name  for  this  option  from  live  "Citation"  pathway,"  while  "Ugly- 
View"  is  used  for  the  components  from  'Taper  Content"  and  beyond.  Selecting  these 
options  results  in  the  program  accessing  the  Informix  Perform  program  which  displays  a 
"Perform"  menu  after  about  a  30  second  delay. 


INFORM I X-SQL  Uersion  2.10.00D 
Copyright  CC)  lOS‘1-1987  Infc  mix  Softiuare,  Inc. 
fill  Rights  Reserved 
Software  Serial  Number  RDS«RC39145 


You  will  notice  that  the  screen  formats  are  different  in  this  program,  providing  little 
explanation  for  what  the  data  means.  Below  the  menu  in  the  upper  right  side  of  tiie  screen 
is  a  number  and  text  which  will  help  you  keep  track  of  where  you  are. 

The  following  are  the  meanings  of  the  abbreviations  found  in  the  first  window,  'Taper 
Overview." 

papdtnum  =>  paper  citation  number 
papdtfile  »  paper  citation  file 
papstatepur  =  paper  statement  of  purpose 
papimpur  =  paper  implied  purpose 
papainr  =  paper  aim 

papnumdsgn  »  tlie  number  of  designs  in  the  paper 


PERFORM  Menu 

This  menu  has  components  which  will  be  familiar  to  you  from  other  screens,  for  example, 
"Next"  and  'Trevious." 
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Figure  A.2 
Firm  part  of 
PERFORM 
Menu  with 
RAtV 
CITATION 
DATA  SCREEN 


Figure  A.2 
Second  part  of 
PERFORM 
Menu  with 
RAW 
CITATION 
DATA  SCREEN 


Query 

This  is  similar  to  a  search  function.  It  is  also  an  entry  process  in  that  it  linl(S  vrith  certain 
data  for  particular  citations.  It  can  be  performed  at  different  levels  (tables)  in  the  program. 
For  example,  if  you  do  a  "C^uery'  at  the  Paper  Overview  level  you  can  move  through  the 
tables  in  the  forward  direction  for  a  particular  citation  to  "Study  Design,"  "Subjects," 
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"Regimens,"  "Links,"  "Qinical  Findings,"  etc.  If  you  do  a  "Query"  startingat  the  "Design" 
level,  you  can't  go  backward  to  the  "Overview"  data  table.  Selecting  "(^lery"  places  the 
cursor  on  the  top  data  field."Retums"  or  the  up  and  down  arrow  keys  can  be  used  to  move 
among  the  different  fields. 

Select  a  field  and  enter  the  numbers  or  words  you  would  like  to  search  for,  and  hit  "Esc"  as 
indicated  at  the  top  of  the  screen.  Again,  wildcards  (*)  will  prove  to  be  useful  as  an  aid  to 
searching.  Did  the  program  find  a  match?  If  it  did,  let's  find  out  how  much  information  has 
been  entered  for  the  piaper  associated  with  the  "Overview"  indicated  on  the  screen. 


Add 


Update 

These  options  are  similar  to  those  described  previously  under  the  "Add"  and  "Find" 
pathways. 


Remove 

This  option  provides  a  means  to  delete  a  row  from  the  active  database  file. 
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Source  Code  Overview 


The  Toxin  Knowledge  System  was  developed 
using  software  trom.  Informix  Sofware,  Inc.,  4100 
Bohannon  Drive,  Menlo  Park,  California,  94025 
(415)  926-6300.  The  database  was  managed 
using  Informix-SQL™  and  the  user  application 
was  developed  using  Informix-4GL™.  The 
original  development  took  place  on  a  Sequent™ 
Balance  8000  minicomputer  running  Dynix™  (a 
Unix-based  operating  system).  Eventually  the 
Toxin  Knowledge  System  was  ported  to  an  IBM 
PC/AT  platform  running  MS-DOS  3.3.  This 
development  used  MS-DOS  versions  of 
Infoimix-SQL™,  Infornux-4GL-'h  and  Informix- 
4GL/ RC)S™.  The  source  code  provided  is 
Infcrmix-4(jL™  code. 
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#tksglob.4gl 


(Comments: 

TITLE:  tksg!ob.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
} 


DATABASE  tkstest 
GLOBALS 
DEFINE 

#basic  table  records 

TJoumlst  record  like  joumlstT, 

T_booklst  record  like  booklst.’, 

T_citation  record  like  citation.*, 

T_authors  record  like  authors.*, 

T_paperover  record  like  paperovor.*, 

T_exporegm  record  like  exporogm.*, 

T_subjgrp  record  like  subjgrp.*, 

T_stdydsgn  record  like  stdydsgn.*, 

T_expogrp  record  like  expogrp.*, 

T_clinfind  record  like  clinfind  *, 

T_tkscomment  record  like  tkscomment.*, 
T_keywords  record  like  keywords.*, 

T_keylist  record  like  keylist.*, 

Tjkssite  record  like  tkssite.*, 

T_morphlst  record  like  morphlst.*, 

T_moiphsynlst  record  like  morphsynlst.*, 

TJablst  record  like  lablst.’, 

TJabsynlst  record  like  labsynlst.*, 

T_signlst  record  like  signisl.*, 

T_signsynlst  record  like  signsynlst.’, 

#  array  records 

auth_array  ARRAYllOi  of  RECORD  like  authors.*, 
a_array  ARRAY[101  of  RECORD 
auth  like  authors.authname, 
sig  like  authors.authsig 
end  record, 

key_array  ARRAY(201  of  RECORD  like  keywords.*, 
k_array  ARRAY[201  of  RECORD 
code  like  keywords.keycode, 
keys  like  keywords.keyword 
end  record, 

dsgn_array  ARRAY150I  of  record  like  stdydsgn.*, 
expo_array  ARRAY1501  of  record  like  exporegm.*, 
sgrp_array  ARRAY150I  of  record  like  subjgrp.*, 
exgp_array  ARRAY150I  of  record 

egeitnumb  like  cxpogrp.egcitnumb, 
cgsenal  integer, 

egdsgnlabel  like  expogrp.egdsgnlabel, 
egsubglabel  like  expogrp.egsubglabel, 
egexpolabcl  like  expogrp. egexpolabel, 
eglink  like  expogrp.eglink, 
egtotnum  smallint, 
egdsgndsc  like  expogrp.egdsgndsc. 
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egdsgn  like  expogrp.egdsgn, 
egsubgdsc  like  expogrp.egsubgdsc, 
egsubg  like  expogrp.egaubg, 
egexpodsc  like  expogrp.egexpodsc, 
egexpo  like  expogrp.egexpo 
end  record, 

cf_array  ARRAY[501  of  record  like  clinfind.*, 
msyn_array  ARRAY[501  of  record  like  morphsynlst.*, 
lsyn_aiTay  ARRAY1501  of  record 
labcodelike  labsynlst.labcode, 
labsyn  like  labsynlst.labsyn 
end  record, 

ssyn_array  ARRAY150I  of  record 

signcode  like  signsynlst.signcode, 
signsyn  like  signsynlst.bignsyn 
end  record, 

U  miscellaneous  flags 

jw_flag,  bw_flag,  cw_flag,  awl_flag,  kvvl_flag,  aw_flag  smallint, 
qw_flag,  sg_flag,  ins_flag,  cont_nag  smallint, 

#  window  flags 

papwin_flag,  dsgnwin_flag,  cntlwin_flag,  expwin_flag  smallint, 

linkwjn_flag,  exgpwin_flag,  dscwin_flag,  comwin_flag  smallint, 

cfwin_flag,  cflwin_flag,  cf2win_flag,  cf3vvin_flag  smallint, 
morph_flag,  lab_flag,  sign_tlag,  syn_flag,  site_flag  smallint, 
a265_flag,  a270_flag,  a260_flag,  a260p_nag  smallint, 
al540_flag,  al940_flag,  a875_t1ag  smallint, 
al078_nag,  al978_flag  smallint, 

#  big  strings 

queryl  char(500), 
selectl  char(500), 
se!ect2  char(5iJ0), 
bib_tntry  char(800), 
keywdlst  char(420), 
pap_stnng  char(400), 
dsgn_string  char(400), 
subj_string  char(400), 
expo_string  char(4(X)), 
find_string  char(400), 

#  miscellaneous  variables 

cimumber  like  citation. citnumb, 
citfileno  like  citation, citfilc, 
outfiie  charOO), 
versno  char!  16), 
quote,  beep,  answerchartl), 

tmp_cnt,  cnt,  counter,  curr_arr,  scr_arr,  arr_cnt  smallint, 
curr_exp,  exp_cnt,  curr_subj,  subj_cr.t  smallint, 
hold_dsgn  integer, 
chosen,  X,  sw,  cw,  pw,  dw  smallint 
END  GLOBALS 


Code 


#tksmain.4gl 

(Comments: 

TITLE;  tksmain.4gl 

Copyright  Harold  L.  Trammel,  1987-1988, 
University  of  Illiois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 
emptyO 
iiew_abs() 
add_abs(t_cit) 
find_abs() 
select_src{) 
delete_all(tmp_cit) 


DATABASE  tkstest 
GLOBALS  "tksglob.4gl" 

MAIN 

define 

tmp_cit  like  citation.citnumb 
call  versionNumO  returning  versno 
call  copyrightO 
#  initial  setup 

let  beep  =■  ASCII(7) 
let  quote  = 

call  startlog("tks.errors") 

DEFER  INTERRUPT 
OPTIONS  INPUT  WRAP, 
help  file  “tkshelp.msg" 

DISPLAY  "Help  is  available.  Hit  Ctri-W  tor  help. '  AT  23,1 
MENU  "TKS-MAIN" 

COMMAND  "AbstractMgt" 

"New  Abstract,  Add  to  Abstract,  Find  Abstracted  Data"  HELP  10 
MENU  "ABSTRACT" 

COMMAND  "New" 

"Add  new  citation  and  abstract  it  into  database"  HELP  20 
call  new_absO 
COMMAND'"Add" 

"Add  Citation,  PaperContcnt,  Keywords,  or  Notes  to  Existing  Abstract"  HELP  21 

let  tmp_cit  =  "" 

call  add_abs(tmp_cit> 

COMMAND  "Find" 

"Find  Existing  Abstract  by  Citation,  PaperContent,  Keywords,  or  Notes"  HELP  22 
call  find_abs() 

COMMAND  "Exit"  "Leave  this  .MENU"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Vocabulary" 

"Access  Journal,  Book,  Keyword,  Clinical  Finding,  or  Chemical  Vocabulary'  HELP  11 
MENU  "VOCABULARY" 

COMMAND  "Journals"  "Change  Journal  Listing"  HELP  30 
CALL  jJistO 

COMMAND  "Books"  "Change  Book  Listing"  HELP  30 
CALL  b_list{) 

COMMAND  "Keywords"  "Change  Keyword  List"  HELP  31 
call  k_list() 
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[COMMAND  "Signs"  "Ciiange  Sign  or  Clinical  Finding  List"  HELP  32 

call  sJistO 

COMMAND  "Chemicals"  "Change  Chemical  List"  HELP  33 

(CALL  emptyO 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

I  COMMAND  "Reports"  HELP  12 

I  MENU  "REPORTS" 

COMMAND  "Journal-Listing" 

!  "Print  current  journal  listing"  HELP  40 

RUN  "saccgo  journalist" 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 

1  END  MENU 

j  COMMAND  "Monographs" 

call  report_cntl() 

I  COMI'-IAND  "Information"  HELP  13 

I  MENU  "ADMIN-lNFORMATlON" 

'  COMMAND  "Copyright-Notice"  HELP  1 

call  copyright!) 

j  COMMAND  "Program-Status"  HELP  1 

(  call  showstatusO 

COMMAND  "Database-Design"  HELP  1 

[call  data_dict() 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

I  COMMAND  "SQL"  "Access  ISQL" 

I  run  "pisql" 

COMMAND  "Exit"  HELP  14 
[  EXIT  MENU 

1  END  MENU 

CLEAR  SCREEN 
.  END  MAIN 

'  FUNCTION  emptyO 

ERROR  "FUNCTION  NOT  YET  IMPLEMENTED" 

SLEEP  3 

CLEAR  SCREEN 
END  FUNCTION 

,  ##################################?*###  if  ###############4############ 

!  FUNCTION  new_abs() 

define 

tmp_cit  like  citation. citnumb, 
aim  like  paperover.papaim 
'  let  tmp_cit  =  null 

call  add_cit(tmp_cit) 
if  sw  =  1 
then 

return 

else 

let  tmp_cit  =  T_citation.citnumb 
call  add_auth(tmp_cit) 
call  add_key(tmp_cit) 
call  show_fuIlcit(tmp_cit) 
end  if 
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call  alrt265open() 

prompt  "Do  you  want  to  add  content  data  to  system  for  this  paper?  (Y/n)" 
for  char  answer 
call  alrt265close() 
if  upshifttanswer)  <>  "N" 
then 

select  *  into  T_paperover.’ 
from  paperover 
where  papcitnumb  =  tmp_cit 
if  status  =  NOTFOUND 
then 

cal!  add_papcr(tmp_cit) 
if  pw  =  1 
then 


return 

else 

select  papaim  into  aim  from  paperover 
where  papcitnumb  =  tmp_cit 

case 

when  aimlldl  =  "£" 

call  add_exgp(tmp_cit) 
cal!  find_control(tmp_cit) 
exit  case 
otherwise 

call  emptyO 
return 
exit  case 
end  case 

end  if 


2lse 


Error  beep,  "  Paper  Overview  data  exists  for  this  Paper.  Use  Find  MENU  to  see 

content." 

sleep  3 
end  if 

end  if 

END  FUNCTION 

################################################################### 

FUNCTION  add_abs(t_cit) 

define 

t_cit  like  citation.citnumb, 
tmp_expo  smallint, 
tmp_dsgn  smallint, 
totnumdsgn  smallint, 
tmp_serial,  pge  integer, 
tmp_subj  smallint 
let  sw=0 
if  t_cit  is  null 
then 

call  select_srcO  returning  t_cit 
if  t_cit  is  null 
then  return 
end  if 

end  if 

MENU  "ADD-DATA" 

COMMAND  "Citation-Data" 

"Add  Citation  or  Autiior  Data"  HELP  60 
MENU  "ADD-CITATION-DATA" 


COMMAND  "Citation" 

"Add  Citation  Data"  HELP  63 
select  countC)  into  cnt  trom  citation 
where  citnumb  =  t_cit 
if  status  =  NOTFO UN D 

then  CALL  add_cit(t_cit) 
else  error  "Citation  data  a'-eady  entered" 
sleep  2 
end  if 

COMMAND  "Authors" 

"Add  Author  Entries"  HELP  64 
CALL  see_auth(t_cit) 

CALL  update_auth(t_cit) 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Paper-Content" 

"Add  the  contents  of  the  paper"  HELP  61 
MENU  "ADD-CONTENT" 

COMMAND  "PaperOvervicw" 

"Add  overview  data  regarding  the  paper"  HELP  69 
select  *  into  T_paporovor.'' 
from  paperover 
where  papcitnumb  =  t^cit 
ifstatus  =  NOTFOUND 
then 

call  add_paper(t_cit) 

else 

open  window  alrtl  a.  10,3  with  2  rows,  60  columns 
attribute  (border,  reverse,  prompt  line  first  -f-1) 
display  "  Paper  Overview  data  exists  for  this  Paper,"  at  1,1 
prompt  "Do  you  want  to  update  it?  (Y/n)  >  "  for  answer  KELP  23 
close  window  alrtl 
if  upshift(answcr)  <>  "N" 
then 

call  papwinopcnO 
call  disp_paper(t_cit) 
call  update_paper(t_cit, 

T.paperover.papserial) 
call  papwincloseO 
end  if 

end  if 

COMMAND  "Materials-Methods"  HELP  70 
MENU  "MATERIALS-METHODS" 

COMMAND  "Design" 

"Add  a  design  to  the  paper  information"  HELP  71 
select  papnumdsgn  into  totnumdsgn 
from  paperover 
where  papcitnumb  =  t_cit 
select  count!*)  into  cnt 
from  stdydsgn 
where  stycitnumb  =  t_cit 
if  totnumdsgn  -  cnt  >  0 
then 

call  add_dsgn(t_cit,  totnumdsgn,  cnt) 
call  add,.exgp(t.dt) 


call  alrt260plop{) 

display  "Design  count  is  equal  to  indicatea  number  of  designs  "  at 
Id 

prompt  "Do  you  want  to  change  PaperOverview?  (Y/n)  >  "  for  answer 
call  alrt260plcl() 
if  upshift(answer)  <>  "N" 
then 

call  papwinopenO 
select  •  into  T_paperover.‘* 
from  paperover 
where  papeitnumb  =  t_cit 
call  disp_paper(t_cit) 
call  update_paper(t_cit. 

T_paperover.papseriaI) 
call  papwincloscf) 
end  if 

end  if 

COMMAND  "Subjects" 

"Add  subject  data  for  a  spxjcific  design"  HELP  72 
open  window  showdsgn  at  2d  with  21  rows,  75  columns 
?.ttribute(border) 

#show  and  select  designs 

call  show_dsgn(t_cit,  0)  returning  pge 

display  "Use  CNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page" 

at  21,  2 

prompt  "For  which  design?  "  for  tmp_dsgn  HELP  73 
on  key  (interrupt) 

next  option  "Subjects" 
on  key  (control-P) 

call  show  dsgn(t_cit,  pge-1)  returning  pge 
on  key  (CONTROL-N) 

call  show_dsgn(t_cit,  pge-i-l)  returning  pge 
end  prompt 

select  styserial  into  tmp_serial  from  sidydsgn 
where  stycitnumb  =  t_cit 
and  stydsgncur  =  tmp_dsgn 
if  status  =  NOTFOUND 
then 

error  "No  designs  for  that  number!" 
sleep  2 

next  option  "Subjects" 
end  if 

select  stynumgrp  into  tmp_subj  from  stdydsgn 
where  stycitnumb  =  t_cit 
and  styserial  =  tmp_scrial 
close  window  showdsgn 
clear  screen 

select  count(*)  into  ent  from  subjgrp 
where  sgeitnumb  =  t_cit 
and  sgdsgnnum  =  tmp_serial 
call  add_sgrp(t_cit,  ent,  tmp_subj,  tmp_scrial) 

COMMAND  "Regimens" 

"Add  Exposure  Regimen  data  for  a  specific  design"  HELP  74 
#show  and  select  designs 

call  show_dsgn(t_cit,  0)  returning  pge 

display  "Use  CNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page" 
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at  21, 2 


prompt  "For  which  study  design?  "  for  tmp_dsgn  HELP  75 
on  key(interrupt) 

next  option  "Regimens" 
on  key  (control-P) 

call  shovv_dsgn(t_cit,  pge-1)  returning  pge 
on  key  tCONTROL-N) 

call  show_dsgn(t_cit,  pge+1)  returning  pge 
end  prompt 

select  sty^'nal  into  tmp_serial  from  stdydsgn 
where  stycitnumb  =  t_cit 
and  stydsgncur=  tmp_dsgn 
if  status  =  NOTFOUND 

then  error  "No  designs  for  that  number!" 

next  option  "Regimens" 
end  1/ 

clear  screen 

select  stynumexp  into  tmp_expo  from  stdydsgn 
where  stycitnumb  =  i_cit 
and  styserial  =  tmp_serial 
select  countC*)  into  ent  from  exporegm 
where  excitnumb  =  t_cil 
and  exdsgnnum  =  trnp_serial 
cal!  add_expo(t_cit,  ent,  tmp_expo,  tmp_serial) 

COMMAND  "Links" 

"Create  the  Exposure  Group  links"  HELP  77 
call  add_exgp(t_cit) 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "FindData" 

"Find  previously  entered  data"  HELP  76 
call  i‘ind_abs() 

COMMAND  "Resuhs" 

"Enter  Findings  from  Study"  HELP  78 
call  find_control(t_cit) 

COMM ANt5  "Discussion"  HELP  79 
call  emptyO 

COMMAND  "Ex.t"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Keywords-Notes"  HELP  62 
MENU  "ADD-KEYWORDS-NOTES" 

COMMAND  "Keywords"  "Add  Keyword  Entries"  HELP  65 
CALL  sco_keys(t_cit) 

CALL  updatc_key(t_cit) 

COMMAND  "Notes"  "Add  notes  to  citation"  HELP  66 
call  emptyO 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Exir  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

FUNCTION  flnd_abs() 

let  citnumber  =  "" 
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let  hold  asgn  =  0 
MENU  “FIND-UATA" 

COMM.-^ND  "Citatiori'Datn" 


"Find  Citation  or  Author  Data"  HELP  50 
MENU  "FIND-ClTAT!ON-DATA" 

#  Needs  mechanism  to  search  for  citation  data  based  on 

#  authors,  journal,  etc  and  select  it  for  adding  to  the 

#  paper  data  files 
COMMAND  "Citation" 

"Find  Citation  Data"  HELP  80 
call  find_cit(citnumber) 
call  cwincloseO 
COMMAND  "Authors" 

"Find  Author  Entries"  HELP  81 
call  find_auth(citnumber) 
call  auwincioseO 
COMMAND  "Query-all" 

"See  data  for  citation,  authors,  keywords"  HELP  82 
call  querybibO 

COMMAND  "Raw-Citation" 

"See  a  raw  form  of  the  citation,  author  and  keyword  data"  HELP  83 
run  "sperform  allcit" 

COMMAND  "Data-Add" 

"Add  data  to  system"  HELP  84 

let  cirnumber  =  "" 

call  add  abs(citnumber) 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Paper-Content" 

"Find  the  contents  of  the  paper"  HELP  51 
MENU  "FIND-CONTENT" 

COMMAND  "PaperOverview" 

"Find  overview  data  regarding  the  paper"  HELP  90 
call  find_paper(citnumber) 
call  papwincloseO 

COMMAND  "Materials-Mcthods"  HELP  99 
MENU  "MATERIALS-METHODS" 

COMMAND  "Design" 

"Find  a  design  to  the  paper  information"  HELP  91 
call  find_dsgn(citnumbcr) 
call  dsgnwincloseO 
COMMAND  "Subjects" 

"Find  subject  data  for  a  specific  design"  HELP  92 
call  find  .sgrp(citnumbcr,hold_dsgn) 
call  swincloseO 
COMMAND  "Regimens" 

"Find  Exposure  Regimen  data  for  a  specific  design"  HELP  93 
call  find_cxpo(citnumbcr,hold_dsgn) 
call  expwincloscO 
COMMAND  "Links" 

"Find  existing  Exposure  Group  link"  HELP  94 
call  find_exgp(citnumber) 
call  linkwincloscO 
COMMAND  "Exit"  HELP  2 
EXIT  MENU 

_ END  MENU _ 
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COMMAND  “Add-Data" 

“Add  data  to  system"  HELP  95 

let  citnumber  =  "" 

call  add_abs(citniimber) 

COMMAND  “Results"  HELP  15 
MENU  “RESULTS" 

COMMAND  “ChnicalFindings" 

"Find  Findings  entered  trom  Study"  HELP  % 
call  find_ctind(citnumber) 
call  cfSwindoscO 
COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Ugly-View" 

“See  raw  data  tor  all  paper  content  tables"  HELP  97 
run  "spertorm  allpaper" 

COMMAND  ''Discussions"  HELP  16 
call  empty!) 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Keywords-Notcs"  HELP  52 
MENU  "FLND-KE'i'WGRDS-NOTES" 

COMMAND  "Keywords" 

"Find  Keyword  Entries"  HELP  53 
call  find,  kcy(citnumber) 
can  (<evwindose() 

COMMAND  "Notes" 

"Find  notes  to  citation"  HELP  54 
RUN  "spertorm  comment" 

COMMAND  "Query-all" 

"See  data  for  citation,  authors,  keywords"  HELP  55 
cal!  query  bibO 
COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 

COMMAND  "Top-Down" 

"See  all  tables  for  a  selected  citation" 
call  top_down()  (located  in  tksquory.4gi) 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

############################«####«################################# 

FUNCTION  select_srcO 

define 

author  char(30), 

volume,  voll,  authl  char(4), 
page2,  pagel  charts), 
citdate  char(2), 

t_dt  like  citation. citnumb, 

lenl,  Icn2  smallint 

Message  "" 
let  t_cit  =  "" 

MENU  "SELECT-FILE-BY" 

COMMAND  "Author-Name"  "Find  by  Author  Name"  HELP  42 
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This  needs  better  mechanism  for: 

-  situations  where  an  authname  might  result  in  similar  citfile  code 

-  listing  of  authors  and  possible  papers  similar  to  sho.v_dsgn() 


message 
let  sw  -  0 

prompt  "Last  name  of  first  author  >  "  for  author  HELP  43 
on  koy(interrupt) 
let  sw=l 
end  prompt 

let  author  =  upshift(author) 
let  authl  =  author(L4l 

prompt  "Volume  Number  or  Chapter  Number  >  "  for  volume  HELP  44 
on  key(interrupt) 
let  sw=l 
end  prompt 

prompt  "First  page  number  >  "  for  pagel  HELP  1 
on  key(interrupt) 
let  sw=l 
end  prompt 

prompt  "Last  2  digits  of  year  >  "  for  citdate  HELP  1 
on  key(interrupt) 
let  sw=l 
end  prompt 

let  citfileno  =  authl  clipped, 
volume  clipped, 
pagel  clipped, 
citdate 
if  sw  =  1 
then 

next  option  "Author-Name" 
else 

select  citnumb  into  t_cit 
from  citation 

where  citfile  =  citfiieno 
if  status  =  notfound 
then 

error  beep,  "No  citation  entered  for  this  paper!" 
let  t_cit  =  "" 
message  "" 
end  if 

EXIT  MENU 
end  if 

COMMAND  "Citation-Number" 

"Sv.lect  citation  by  number"  HELP  45 
let  sw  =  0 

prompt  "Which  citation  number?  "  for  t_cit  HELP  46 
on  key(interrupt) 
let  sw  =  1 
end  prompt 
let  t_cit  =  upshift(t_cit) 
if  sw  =  1 
then 

next  option  "Citation-Number" 

else 

select  citnumb  from  citation 


where  citnumb  =  t_cit 
if  status  =  notfound 
then 

error  beep,  "No  citation  entered  for  this  paper!" 
let  t_cit  -  "" 
message  "" 
end  if 

EXIT  MENU 
end  if 

COMMAND  "Exit"  HELP  2 
EXIT  MENU 
END  MENU 
return  t_cit 
END  FUTVCTION 

#######################  ######;##»«##  ###################### 
FUNCTION  delete_all(tmp_cit) 

#  this  is  called  from  delete_cit  when  all  entered  papers  are  to  be  deleted, 
define 

answer  chard), 
thold,  hold  smallint, 
tmp_cit  like  citation. citnumb 
call  alrt270open() 

prompt  "Are  you  sure  you  want  to  delete  thisentr)-  from  all  tables?  (y/n)  " 
for  answer 
call  alrt27C)close{) 
if  upshift(answer)  *  "Y" 
then 

select  aucitnumb  from  authors 
where  aucitnumb  =  tmp_cit 
union 

select  koycitnumb  from  keywords 
where  keycimumb  =  tmp_cit 

union 

select  papeitnumb  from  paperover 
where  papeitnumb  =  tmp_cit 

union 

select  stycitnumb  from  stdydsgn 
where  stycitnumb  =  tmp_cit 

union 

select  sgeitnumb  from  subjgrp 
where  sgeitnumb  =«  tmp_cit 

union 

select  excitnumb  from  exporegm 
where  excitnumb  =  tmp_cit 

union 

select  egeitnumb  from  expogrp 
where  egeitnumb  =  tmp_cit 

union 

select  efeitnumb  from  clinfind 
where  cfcitnumb  =  tmp_cit 

u’lion 

select  cocitnumb  from  tkscomment 
where  cocitnumb  =>  fmp_cit 
if  status  -  NOTFOUND 
then 

delete  from  citation  where  citnumb  =  fmp_cit 
clear  form 
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.  Toxbf 


else 


Message  "ROW  DELETED  • 
sleep  1 
Message  "" 


no  other  rows!!" 


delete  from  citation  where  citnumb  =  tmp_cit 

clear  form 

call  alrt265open() 

message  beep, 

"There  is  information  in  other  tables  with  this  number!" 
slextp  ? 
let  thold  =  0 

select  count(*)  into  hold  from  authors 
where  aucitnumb  =  tmp_cit 
delete  from  authors 

where  aucitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##&",  "  author  rows  deleted"  at  2,1 
sleep  2 

select  count!*)  into  hold  from  keywords 
where  keycitnumb  =  tmp_cit 
delete  from  keywords 

where  keycitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##&",  "  keyword  rows  deleted"  at  2,1 
sleep  2 

select  count(’)  into  hold  from  paperover 
where  papeitnumb  =  tmp_cit 
delete  from  paperover 

where  papeitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  held  using  "##&",  "  paper  overview  rows  deleted"  at  2,1 
sleep  2 

select  count!*)  into  hold  from  stdydsgn 
where  stycitnumb  =  tmp_cit 
delete  from  stdydsgn 

where  stycitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##&",  "  study  design  rows  deleted"  at  2,1 
sleep  2 

select  count!*)  into  hold  from  subjgrp 
where  sgeitnumb  =  tmp_cil 
delete  from  subjgrp 

where  sgeitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##&",  "  subject  group  rows  deleted"  at  2,1 
sleep  2 

select  count!*)  into  hold  from  exporegm 
where  excitnumb  =  tmp_cit 
delete  from  exporegm 

where  excitnumb  =*  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##&",  "  exposure  regimen  rows  deleted"  at  2,1 
sleep  2 

select  count!*)  into  hold  from  expogrp 
where  egeitnumb  » tmp_cit 
delete  from  expogrp 

where  egeitnumb  =  tmp_cit 
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display  ""  at  2,1 

display  "  ",  hold  using  "  exposure  group  rows  deleted"  at  2,1 

sleep  2 

select  count(’)  into  hold  from  clinfind 
where  ckitnunib  =  tnip_cit 
delete  from  clinfind 

where  cfcitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  "##(&",  "  clinical  finding  rows  deleted"  at  2,1 
sleep  2 

select  countC*)  into  hold  from  tkscomment 
where  cocitnumb  =  tiTip_cit 
delete  from  tkscomment 

where  cocitnumb  =  tmp_cit 
display  ""  at  2,1 

display  "  ",  hold  using  “HU&l",  “  comment  rows  deleted"  at  2,1 
sleep  2 

call  alrt265close{) 
end  if 
else 

clear  form 

message  "Row  NOT  deleted" 
sleep  1 
message  "" 
return 
end  if 

END  rUNCTION 


#tksdev.4gl 

{TITLE:  tksdev.4g! 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-71 14 
PURPOSE:  to  list  the  status  of  the  developmental  TKS 
Contains  the  follov/ing  functions; 
versionNumO 
showstatusO 
data_dict() 
copyrightO 

) 


database  tkstest 
globals  "tksglob.4gl" 

FUNCTION  versionNumO 

{DEVELOPMENT  NOTES 
1.  Version  Numbers  10-14-88 

TKS  Version  numbers  should  indicate  the  number  of  major 
revisions,  the  number  of  gamma  level  modules,  the  number 
of  beta  level  module,  and  the  number  of  alpha  modules. 

major  revisions  -  changes  made  to  the  majority  of 

the  modules  these  changes  would  reduce  affected  modules 
from  gamma  level  to  beta  level  until  changes  confirmed 
correct. 

gamma  level  -  module  has  been  debugged  to  a 
reasonable  level  and  can  be  used  safely 
by  non-programming  and  testing  staff 
beta  level  -  module  that  have  high  level  of 

development  and  programmer  level  debugging, 
alpha  level  -  initial  development  modules,  prone 
to  have  bugs  a'  plenty 

10-14-88  version  number=  tks5.9g8b2a 
Citation  data  fully  operational 
Paper  Content  partially  operational 
Monograph  Beg'an 

Vocabulary  fully  operational  xc  SNOVET  into  SNOMED 
12-25-88  version  number  tks6.9g8b2a 
Help  messages  added  to  all  modules 
1-26-89  version  number  tks7.5g3bl  la 

Added  serial  numbers  to  all  tables,  modifications  to 
all  modules  to  provide  support  of  those  numbers 
4-3-89  version  number  tks/.llg.Sb.la 

Supports  serial  numbers  all  the  way  to  finding. 

Finding  needs  almost  full  revision. 

10-6-89  version  number  tks7.10g.5b.2b 

Vocabulary  modules  significantly  revised;  clinical  finding 

) 

define 

vers  char(25) 
let  vers  =  "tks7.10g5b2a" 
return  vers 
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end  function 

####;#############################################################»## 

function  showstatusO 

open  window  devwin  at  3,4  witli  18  rows,  75  columns  attribute(border) 
display  "STATUS  -  DEVELOPMENTAL  TOXIN  KNOWLEDGE  SYSTEM"  at  2,1 


display  ""  at  3,1 

display  "main  gamma"  at  4,3 
display  "globals  gamma"  at  4,30 

display  "citation  gamma"  at  6,3 
display  "authors  gamma"  at  6,30 
display  "keywords  gamma"at  6,50 

display  "query  gamma"  at  8,3 

display  "shows  gamma"  at  8,30 

display  "paperovei  view  gamma"  at  10,3 
display  "design  beta"  at  10,30 
display  "subjgrp  beta"  at  10,50 
display  "exporegm  beta"  at  12,3 
display  "expogrp  beta"  at  12,30 
display  "findings  alpha"  at  12,50 
display  "vocabulary  alpha"  at  14,3 
display  "monograph  beta"  at  14,30 


display  "translation  gamma"  at  16,3 
display  "window  mgt  gamma"  at  16,30 
sleep  4 

close  v/indow  devwin 
end  function 

#################################################################### 
function  data_dlct() 
clear  screen 

display  "  Getting  the  information  ...  "  at  10,30 
attnbute(reverse) 

jun  "isql  ikstest  infotks  >  infotks.out" 
ran  "less  irifotks.out" 
display  ""  at  10,30 
end  function 

###################################################################### 
function  copyrightO 
call  alrtl540open() 

display  " _ _  "  at  2,2  attributcfrevcrse) 

display"  /  I  I  /  /  /  " at 3,2 attributc(rcvcrse) 

display"  I  l<  < _  "  at  4,2  attributc(revcrso) 

display"  I  I  \\  >  " at 5,2 attributc(rcvcrse) 

display"  J  J  > _ /  "  at  6,2  attribute(reverse) 

display  "  "  at  7,2  attributet reverse) 

display  "Toxin  Knowledge  System  vcr.",versno  clipped  at  9,2 

display  "Copyright  1988,1989  Harold  L.  Trammel  "  at  10,2 

display  "  University  of  Illinois  "  at  11,2 

display"  Funded  by  "at  13,2 

display"  US  Army  Contract  DAM  D17-C-87-71 14  "  at  14,2 

sleep  5 

call  alrtl540close() 
end  function 


Paitinr  Knowledge  Svsterir  Sou 


#tkswirimg.4gl 


(TITLE:  tkswiniTig.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 

University  of  Illiois,  CVM,  lAPlC 

Funded  by  US  Army  Contract  DAMD-17-C-7114 


Purpose:  central  file  to  hold  window  management  functions  for  entire 
program 


Contains  the  following  functions: 
alrtl940open() 
alrtl940close() 
alrt260open() 
alrt260close() 
alrt270open0 
alrt270close() 
alrt260plop() 
alrt260plcl() 
alrt265open() 
alrt265close{) 
alrtl540open() 
alrtl540close() 
alrt875open() 
alrt875dose() 
qwinopenO 
qwincloseO 
auwinopenO 
auwincloseO 
keywindoseO 
keywinopenO 
cwinopenO 
cwincloseO 
papwinopenO 
papwincloseO 
dsgnwinopenO 
dsgnwincloseO 
expwinopenO 
expwindoseO 
swinopenO 
swincloseO 
lirrkwinopenO 
linkwincloseO 
exgpwinopenO 
exgpwincloseO 
dscwinopenO 
dscwincloseO 
cfwinopenO 
cfwincIoseO 
cflwinopeni, 
cflwincloseO 
cf2winopen() 
cf2winclose() 
cf3winopen() 
cf3winclose() 
alrtl078open() 
alrtl078close() 
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morphwinopenO 

morphwincloseO 

sitewinopenO 

sitewincloseO 

labwinopeiiO 

labwincloseO 

signwinopenO 

signvvincloseO 

synwinopenO 

synwincloseO 


database  tkstest 
globals  "tksglob.4gl" 

FUNCTION  airi1940open{) 
if  al940_flag  <>1 
then 

open  window  alrtl940  at  4,20  with  19  rows,  40  columns 
attribute  (border,  reverse,  prompt  line  last  -1) 
let  al940.,flag  -  1 

else 

current  window  is  alrtl940 

end  if 

end  function 

FUNCTION  alrtl340ctose0 

if  al940.  Hag  =1 
then 

close  window  alrtl940 
let  al940_flag  =  0 

end  if 

END  FUNCTION 

###############################«################################### 
FUNCTION  alrt260open() 
if  a260_nag  <>1 
then 

open  window  alrt260  at  10,10  with  2  rows,  60  columns 
attribute  (border,re'  ‘‘rse) 
let  a260_flag  =  1 
else 

current  window  is  alrt260 

end  if 

end  function 

################################################################### 
FUNCTION  alrt260close() 
if  a260_flag  =1 
then 

close  window  alrt260 
let  a260_flag  =  0 

end  if 

END  FUNCTION 
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#################################### 

FUNCTION  alrt270open() 

if  a270_flag  <>1 
then 

open  window  alrt270  at  10,5  witli  2  rows,  70  columns 
att-foute  (border,revcrse) 
let  a270_tlag  =  1 

else 

current  window  is  alrt270 

end  if 

end  function 

FUNCTION  alrt270close() 

if  a270_flag  =1 
then 

close  window  alrt270 
let  a270_flag  =  0 

end  if 

END  FUNCTION 


######################;############################################# 
FUNCTION  alrt260p1op() 
if  a260p_flag  <>1 
then 

open  window  alrt260pl  at  10,10  with  2  rows,  60  columns 
attribute  (border, re  verse,  prompt  line  first+1) 
let  a260p_flag  =  1 
else 

current  window  is  alrt260pl 

end  if 

end  function 

################################################################### 

FUNCTION  alrt260p1cl() 

if  a260p_flag  =1 
then 

close  window  alrt260pl 
let  a260p_flag  =  0 

end  if 

END  FUNtrriON 

################################################################### 
FUNCTION  alrt265open() 
if  a265_flag  <>1 
then 

open  window  alrt265  at  10,7  with  2  rows,  65  columns 
attribute  (border,reverse) 
let  a265_flag  =  1 

else 

current  window  is  alrt265 

end  if 

end  function 


############################3###################################### 

FUNCTION  alrt265close0 

if  a265_flag  =1 
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then 

close  window  alrt265 
let  a265_nag  =  0 

end  if 

END  FUNCTION 

################################«################################## 
FUNCTION  alrtl540open() 
if  al540_flag  <>1 
then 

open  window  alrtl540  at  5,20  with  15  rows,  40  columns 
attribute  (border) 
let  al540_nag  =  1 

else 

current  window  is  alrtl540 

end  if 

end  function 

###################################«###),############»############## 

FUNCTION  a!m540clO3e() 

if  al540_flag  =1 
then 

close  window  alrtl540 
let  al540_flag  =  0 

end  if 

END  FUNCTION 

####################################################4############## 
FUNCTION  alr187Sop0n() 
if  a875_flag  <>1 
then 

open  window  alrt875  at  5,2  with  8  rows,  75  columns 
attribute  (border) 
let  a375_ilag  =  1 
else 

current  window  is  alrt875 

end  if 

end  function 

################################################################### 
FUNCTION  alrt875close() 
if  a875_flag  =1 
then  • 

close  window  alrt875 
let  a875_flag  =  0 

end  if 

END  FUNCTION 

####################################</############################## 
FUNCTION  qwinopenO 
display  ""  at  2,2 
if  qw_flag  <>1 
then 

open  window  querywin  at  2,2  with  form  "querybib" 
attribute(border) 
let  qw_flag  =  1 
display  ""  at  1,1 
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bxln  Khbwlt^qe  System 


aifeiitfeiiffli 


else 


display  ""  at  2,2 


current  window  is  querywin 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 


FUNCTION  qwincloseO 

display  ""  at  2,2 
if  qw_flag  =  1 
then 

close  window  querywin 
let  qw_flag  =  0 

end  if 

end  FUNCTION 


FUNCTION  auwInopenO 

display  ""  at  2,2 

if  awl_flag  <>  1 
then 

OPEN  WINDOW  auwinl  at  12,3  WITH  FORM  "tksauth" 

ATTRIBUTE  (border) 
let  awl_flag  =  1 
display  ""  at  1,1 
display  at  2,2 

else 

current  window  is  auwinl 
display at  1,1 
display  ""  at  2,2 

end  if 

end  function 

################################################################### 

FUNCTION  auwIncloseO 

display  ""  at  2,2 
if  awl_flag  =  1 

then  close  window  auwinl 
let  awl_flag  =  0 

end  if 

end  function 


###############################/»########«########################### 
FUNCTION  keywincloseO 
display  ""  at  2,2 
if  kwl_flag  =■  1 
then 

close  window  kewinl 
let  kwl_nag  =  0 
end  if 

end  function 
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FUNCTION  keywinopenO 

display  ""  at  2,2 
if  kwl_flag  <>  1 
then 

OPEN  WINDOW  kevvinl  at  4,29  WITH  18  rows,  50  columns 
ATTRIBUTE  (border) 
open  form  k_wrds  from  "ikskey" 
display  form  k_wrds 
let  kwl_flag  =  1 
display  at  1,1 
display  ""  at  2,2 

else 

current  window  is  kewinl 
display at  1,1 
display  ""  at  2,2 
display  at  16,2 
end  if 

end  function 

#################################?################################## 
FUNCTION  cwInopenO 
display  at  2,2 
if  cw_flag  <>  1 
then 

OPEN  WINDOW  citl  at  2,2  WITH  FORM  "tkscit"  ATTRIBUTE  (BORDER) 
let  cw_flag  =  1 
display  at  1,1 
display  ""  at  2,2 

else 

current  window  is  citl 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


################################################################### 
FUNCTION  cwIncloseO 
display  ""  at  2,2 
if  cw_flag  3  1 
then 

close  window  citl 
let  cw_flag  3  0 
end  if 

end  function 


##################################/>################################ 
FUNCTION  papwlnopsnO 
display  ""  at  2,2 

if  papwin_flag  <>  1 
then 

open  window  papcrwin  at  2,2  with  form  "tkspapcr" 
attribute(bordcr) 


let  papwin_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 
else 

current  window  is  paperwin 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 


FUNCTION  papwIncloseO 

display  ""  at  2.2 
if  papwin_flag  =  1 
then 

close  window  paperwin 
let  papwin_tlag  =  0 

end  if 

end  FUNCTION 


###########################;<############»########################## 
FUNCTION  dsgnwinopenO 
display  ""  at  2,2 

if  dsgnwin_flag  <>  1 
then 

open  window  dsgnwin  at  2,2  with  form  "tksdsgn" 
aitribute(border) 
let  dsgnwin_flag  =  1 
display  ""at  1,1 
display  ""  at  2,2 

else 

current  window  is  dsgnwin 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 


################################################################### 
FUNCTION  dsgnwincloseO 
display  ""  at  2,2 
if  dsgnwin_f]ag  =  1 
then 

close  window  dsgnwin 
let  dsgnwin_flag  =  0 

end  if 

end  FUNCTION 


################################################################### 
FUNCTION  expwinopenO 
display  ""  at  2,2 

iff  ■  dn_flag  <>  1 
th>  : 

jpen  window  expowin  at  2,2  with  form  "tkscxpo" 
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attribute(bordcr) 
let  expwin_flag  =  1 
display at  1,1 
display  ""  at  2,2 

else 

current  window  is  expowin 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  FIjNCTION 


################################################################### 
FUNCTION  expwincloseO 
display  ""  at  2,2 
if  expwin_flag  =  1 
then 

close  window  expowin 
let  expwin_flag  =  0 

end  if 

end  FUNCTION 


###############################?<#####(»#####«####################### 
FUNCTION  swinopenO 
display  ""  at  2,2 
if  sg_flag  <>  1 
then 

OPEN  WINDOW  sgrpl  at  2,2  WITH  FORM  "tkssubj"  ATTRIBUTE  (BORDER) 
let  sg..fi.ag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  sgrpl 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


################################################################### 
FUNCTION  swincloseO 
display  at  2,2 
if  sg_flag  <>  1 
then 

close  window  sgrpl 
let  sg_flag  *  0 
end  if 

end  function 


#########^#######^###############«################################# 
FUNCTION  IlnkwInoponO 
display at  2,2 

if  linkwin_flag  <>  1 
then 

open  window  linkwin  at  2,2  with  form  "tksogl" 
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attribute^uorder) 
let  Iinkvvin_nag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  linkwin 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  FUNCTION 


FUNCTION  linkwIncloseO 

display  at  2,2 
if  linkwin_flag  =  1 
then 

close  window  linkwin 
let  linkwin_flag  =  0 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 

##^################################################################ 
FUNCTION  exgpwInopenO 
display  ""  at  2,2 

if  exgpwin_flag  <>  1 
then 

open  window  exgpwin  at  5,3  with  form  "tkseg2" 
attribute!  border) 
let  exgpwin_ilag  =  1 
display  ""at  1,1 
display  ""  at  2,2 

else 

current  window  is  exgpwin 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  FUNCTION 


##############################################################«#### 
FUNCTION  exgpwlnclosaO 
display  ""  at  2,2 
if  exgpwin_flag  =»  1 
then 

close  window  exgpwin 
let  exgpwin_flag  =  0 

end  if 

end  FUNCTION 


###«##########!)####  ###»«#####»«#####««#«#  ##)>«##«########## 
FUNCTION  dsewinopeno 
display  ""  at  2,2 

if  dscwin_flag  <>  1 
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then 

open  window  dscwin  at  i0,3  with  10  rows,  65  columns 
attnbute(border) 
let  dscwin_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  dscwin 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  FUNCTION 


#######################»## »#######»###;*############################ 
FUNCTION  dscwlncloseO 
display  ""  at  2,2 
if  dscwin_flag  =  1 
then 

close  window  dscwin 
let  dscwin_flag  =  0 

end  if 

end  FUNCTION 

##################################«################################ 
FUNCTION  cfwinopanO 
display  ""  at  2,2 
if  cfwin_flag  <>1 
then 

open  window  cfindl  at  2,2  with  fonn  "tkscf" 
attrbute(bordor) 
let  cfwin  jlag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 
else 

current  window  is  cfindl 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 


##############«###########«############»########################### 
FUNCTION  cfwIncloseO 
display  ""  at  2,2 
if  cfwin_flag  »  1 
then 

close  window  cfindl 
let  cfwin_flag  *  0 

end  if 

END  FUNCTION 


FUNCTION  cflwInopenO 

display  at  2,2 
if  cflwin_flag  <>1 


then 

open  window  cfindl  at  2,2  with  form  "tkscfl 
attribute(border) 
let  cfiwin_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  cfindl 
display  ""  at  1,1 
display  ""at  2,2 

end  if 

end  FUNCTION 


FUNCTION  cHwincloseO 

display  ""  at  2,2 
if  cflwin_flag  =  1 
then 

close  window  cfindl 
let  cflwin_flag  =  0 

end  if 

END  FUNCTION 


################################# 

FUNCTION  cf2wlnopen() 

display  ""  at  2,2 
if  cf2win_flag  <>1 
then 

open  wir.doiv  cfind2  at  2,2  wnh  form  "tkscf2'' 
attributei  border) 
let  cf2win_flag  =  1 
display  """at  1,1 
display  at  2,2 

else 

current  window  is  cfind2 
display  ""  at  1,1 
display  ""  at  2,2 

end  if 

end  FUNCTION 


##«##«#####«##################<)########## 

FUNCTION  cf2wlnclos®0 

display  ""  at  2,2 
if  cf2win_flag  ■  1 
then 

close  window  cfind2 
let  cf2win_flag  =«  0 

end  if 

END  FUNCTION 


FUNCTION  cOwInopenO 

display  ""  at  2,2 _ 
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if  cf3win_flag  <>1 
then 

open  window  cfind3  at  2,2  with  form  "tkscf3'' 
attributeiborder) 
let  cf3win_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  cfind3 
display  ""  at  1,1 
display at  2,2 

end  if 

end  FUNCTION 


########################♦?########################################## 

FUNCTION  ct3winclose() 

display  ""  at  2,2  ’ 

if  cf3win_flag  =  1 
then 

close  window  cfind3 
let  cf3win_flag  =  0 

end  if 

END  FUNCTION 

################## 

FUNCTION  alrt1978open0 

if  al978_flag  <>1 
then 

open  window  alr:1978  at  2,2  wdh  19  rows,  78  columns 
attribute  (border) 
let  al978_flag  =  1 
else 

current  window  is  alrtl978 

end  if 

end  function 

################################################################### 
FUNCTION  alrt1978close0 
if  al978_flag  =  1  then 
close  window  alrtl978 
let  al978_flag  »  0 
end  if 

END  FUNCTION 

FUNCTION  aini078open() 

ifal078_nag<>l 

then 

open  window  alrtl078  at  12,2  with  10  rows,  78  columns 
attribute  (border) 
letal078_flag=i  1 
else 

current  window  isalrtl078 

end  if 
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end  function 

################################3################################## 
FUNCTION  alrt1078close() 
ifal078_flag  =  1  then 

close  window  alrtl078 
let  al078_flag  =  0 
end  if 

END  FUNCTION 

################################################<;################## 
FUNCTION  morphwInopenO 
display  ""  at  2,2 

if  morph_fIag  <>  1 
then 

OPEN  WINDOW  morph  at  2,2  WITH  FORM  "vocmorph"  ATTRIBUTE  (BORDER) 
let  morph_fIag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  morph 
display  ""  at  1,1 
display  at  2,2 
end  if 

end  function 


#########################«##»<#########«############################ 
FUNCTION  morphwlncloseO 
display  ""  at  2,2 

if  morph_flag  =  1 
then 

close  window  morph 
let  morph_flag  =  0 
end  if 

end  function 

##############################«#################################### 
FUNCTION  sitewincpeno 
display  ""  at  2,2 
if  site_flag  <>  1 
then 

OPEN  WINDOW  site  at  2,2  WITH  FORM  "vocsite"  ATTRIBUTE  (BORDER) 
let  site_flag  =  1 
display  '"'at  1,1 
display  ""  at  2,2 

else 

current  window  is  site 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


#############«##########«######«##«################################ 
FUNCTION  sItewIncloseO 
display  at  2,2 
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if  site_flag  =  1 
then 

close  window  site 
let  site_flag  =  0 
end  if 

end  function 


################################################################### 
FUNCTION  labwInopenO 
display  ""  at  2,2 
if  lab_flag  <>  1 
then 

OPEN  WINDOW  lab  at  2,2  WITH  FORM  "voclab"  ATTRIBUTE  (BORDER) 
let  lab_flag  =  1 
display  ""  at  1,1 
display  at  2,2 

else 

current  window  is  lab 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


################################################################### 
FUNCTION  labwIncloseO 
display  ""  at  2,2 
if  lab_flag  =  1 
then 

close  window  lab 
let  lab_flag  =  0 
end  if 

end  function 

################################################################### 
FUNCTION  sIgnwInopenO 
display  ""  at  2,2 
if  sign_flag  <>  1 
then 

OPEN  WINDOW  sign  at  2,2  WITH  FORM  "vocsign"  ATTRIBUTE  (BORDER) 
let  sign_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 
else 

current  window  is  sign 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


######################################################>############## 
FUNCTION  sIgnwIncloseO 
display  ""  at  2,2 
if  sign_fldg  »  1 
then 

close  window  sign 
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let  sign_flag  =  0 
end  if 

end  function 


FUNCTION  synwInopenO 

display  ""  at  2,2 
if  syn_flag  <>  1 
then 

OPEN  WINDOW  syn  at  2,2  WITH  FORM  "tkssynls"  ATTRIBUTE  (BORDER) 
let  syn_flag  =  1 
display  ""  at  1,1 
display  ""  at  2,2 

else 

current  window  is  syn 
display  ""  at  1,1 
display  ""  at  2,2 
end  if 

end  function 


#######)######(,■####################;)#######)######################### 
FUNCTION  synwIncloseO 
display  at  2,2 
if  syn_flag  =  1 
then 

close  window  syn 
let  syn_flag  =  0 
end  if 

end  function 
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#tkscit.4gl 

(TITLE:  tkscit.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
Universit}'  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  FUNCTIONS; 
add_cit(argcu) 
find_cit(t_cit) 
view_cit() 

update_dt(tmp_citserial) 

delete_dt{tmp_citserial) 

distitleO 

seeJoumO 

see_book() 

get_authl() 

citnumb_exists(c_num) 
citfile_exists(c_file) 
exist_dtnumb(c_cit) 
exist  dtfilefc  cit) 

} 

DATABASE  Ikstest 
GLOBALS  "tksglob.4gl" 

FUNCTION  add_cit(argcit) 

DEFINE 

ctitlel,  ctitle2,  ctitleS,  ctitle4  char(63), 
cpagel,  cpage2,  cpage3,  tmp_page  char(5), 
cvol,  thisyear  char(4), 
lenl,  len2,  len3,  x,  y  smallint, 
tmp_auth  like  authors.authname, 
tmpname  char(60), 
tmp_add  char(2), 
argcit  like  dtation.citnumb, 
argfile  like  dtation.dtfile, 
cc  integer, 
authl  like  authors.authname 
#initial  screen  setup 
call  cwinopen() 

CLEAR  FORM 
display  ""  at  15,2 
let  sw  3  0 

•  display  "0"  to  authors 
display  "0"  to  keywords 
display  "0"  to  paperover 
display  "0"  to  designs 
display  "0"  to  subjects 
display  "0"  to  exposures 
call  get_authl()  returning  authl 
options  input  wrap, 

help  file  "tkshelp.msg", 
help  key  CONTROL-n 

INPUT 

T_citation.citsource, 

T_citation.dtlocate, 

T_citation.entrydate, 

T_citation.dtvol, 
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h'Oxih  Kndwledq#S^ter 


cpagel,  cpage2, 

T_citation.dtdate, 

T_citation.dtnumb, 

T_citation.dtfile, 

ctitlel,  ctitle2,  ctitleS,  ctitle4 

FROM 

dtsource,  citlocate,  entrydalc,  citvoi,  dtpage,  cp2, 
citdate,  dtnumb,  citfile,  cittitlc,  ct2,  ct3,  ct4 
ON  Key(interrupt) 
let  sw  =  1 
exit  input 

ON  Key(control-vv) 
case 

when  iriield(dtnumb) 
call  showhelp('T12) 
when  infield(citsource) 
call  showhelp(lOO) 
when  infield(culocate) 
call  showhelp(lOl) 
when  infield(citvol) 
call  showhelp(102) 
when  infield(citpage) 
cal!  showhelpdCS) 
when  infield(cp2) 
call  showhe!p(103) 
when  infield(citdate) 
call  showhelp(104) 
when  infieldCcittitle) 
call  showhclpdOS) 
end  case 


before  field  citsource 

MESSAGE  "Enter  source  code  OR  journal>  F5/Cntl-F,  book>  F6/Gitl-B,  Help>  Ctrl-w." 

ON  Xey(F5,CONTROL-F) 
if  infield(citsource)  then 

lot  T_citation.citsource=  sceJournO 
Oi^ONS  help  key  CONTROL-VV 
next  field  dtsource 
end  if 

ON  Key(F6,CONTROL-B) 
if  iiifieldfcitsource)  then 

let  T_citation.citsource=  sce_book() 
next  field  dtsource 
end  'f 

after  field  dtsource 

message  "" 


when  T_citation.citsourcell,ll  =  "J" 

select  jabrv  into  tmpnamc  from  journist 

where  journist. jcodc  =  T_citation.citsource 
if  status=NOTFOUND  then 

ERROR  "Not  currently  in  vocabulary" 
next  field  citsource 
end  if 

display  by  name  tmpname 
exit  case 
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when  T_citation.citsourccll,ll  =  "B" 

select  bname  into  tmpname  from  booklst 

where  booklst. bcode  =  T_citation.citsourcc 
if  status=NOTFOLJND  then 

ERROR  "Not  currently  in  vocabulary" 
next  field  citsourcc 
end  if 


display  by  name  tmpname 
exit  case 
otherwise 

ERROR  "Not  a  Journal  or  Book! ! !" 
next  field  citsource 
exit  case 
END  case 
before  field  citvol 
let  cvol  =  "0000" 
after  field  citvoi 

let  lenl  =  length(T_citation.citvol)-l 
let  cvol[4-lenl,4j  =  T_citation.citvol 
display  by  name  T_citation.citvol 
before  field  citpage 
let  cpage3  =  "00000" 
after  field  citpage 

let  len2  =  length(cpagel)-l 
let  X  =  cpagel 

let  cpage3[5-len2<5]  =  cpagel 
display  cpagel  to  citpage 
let  T_citation.citpage  =  cpagel  clipped, 
after  field  cp2 
let  y  =  cpage2 
let  ler\3  =  length(cpage2)-l 

let  T_citation.citpage  =  T_citation.citpage  clipped,  cpage2 
if  y  <  X 

then  error  beep,  "Last  page  less  than  first  page!!!" 

next  field  citpage 
end  if 

display  cpage2  to  cp2 
after  field  citdate 

let  thisyear  =  year(today)  using  "####" 
if  T_citation.citdate  <  "1000"  or  T_citation.citdate  >  thisyear 
then 

ERROR  beep,  "Not  a  valid  year! ! !" 
next  field  citdate 
else 

let  T_citation,citnumb  =  T_citation. citsource  clipped,"-", 
c~vol,"-", 
cpagc3,"-", 

T_citation.citdate 

display  by  name  T_citation.citnumb 
end  if 

after  field  citnumb 

if  T_citation.citnumb  is  not  null 
then 

let  argeit  *  T_citation.citnumb  clippcd,"%" 
call  exist_citnumb(argcit)  returning  ent 
if  ent  >a  1  then 

call  citnumb_exists(argcit) 
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current  window  is  citl 
display  ""  at  1,1 
end  if 

let  tmp_add  =  "  " 
if  length{T_citation.citnumb)  >  22 

then  let  tmp_add  =  ''.",T_citation.citnumbl24l 
end  if 

let  T_citation.citfile  =  authlH,!)  clipped/'.", 

T_citation.citvol  clipped,".", 
cpagel  clipped,".", 

T_citation.citdale(3, 4), 
tmp_add 

display  by  name  T_citation.citfile 

else 

error  beep,"Must  have  citation  number!" 
next  field  citdate 
end  if 

after  field  citfile 

if  T_citation.citfile  is  not  null 
then 

let  argfile  =  T_citation. citfile  clipped, 
call  exist_citfilc(argcit)  returning  cnt 
if  cnt  >:=  1  then 

call  citfi!e_exists(argfile) 
current  window  is  citl 
display  ""  at  1,1 
end  if 

else 

error  beep,  "Must  have  citation  file  number!" 
next  field  citdate 
end  if 
after  input 

let  T_citation.cittitle  =  ctitlel,  ctitlc2,  ctitle3,  ctitle4(l,61] 
let  T  citarion.citsenal  -  0 
END  INPUT 

options  help  key  control-w 
if  sw  =  1  then  return  end  if 
insert  into  citation  values  (T_citation.*) 
let  cc=  status 
if  cc  <  0  then 
error  cc 
return 
end  if 

MESSAGE  "Row  added" 

SLEEP  1 
MESSAGE  "" 

END  FUNCTION 

###################################################################### 
FUNCTION  flnd_clt(t_clt) 

define  t_cit  like  utation.citnumb 

call  ewinopenO 

case 

when  t_cit  is  null 

OPTIONS  input  wrap, 

HELP  file  "tkshclp.msg" 
clear  form 
let  int_flag  =  0 
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construct 

query!  on  citnumb,  citsource,  citfile,  citlocate, 
citvol,  citpage,  citdate,  cittitle 
from  citnumb,  citsource,  citfile,  citlocate,  citvol, 
citpage,  citdate,  cittitle 

prompt  "For  Journal  codes  <F5>,  Bookcodes  <F6>,  else  <Return>  " 
for  answer 

on  key(F5,CONTROL-F) 
call  see_journO 
on  key(F6,cbNTROL-B) 
call  see_book() 
end  prompt 

if  int_f]ag  <>0  then  return  end  if 
let  select!  =  "select  *  from  citation  where  ", 
query!  clipped 

let  select2  =  "select  countC)  from  citation  where  ", 
query!  clipped 
exit  case 
otherwise 

let  select!  =  "select  *  from  citation  rvhere  ", 

"  cirnumb  =  ",  quote,  t_cit,  quote 
let  select2  =  "select  count!*)  from  citation  where  ", 

"  citnumb  =  ",  quote,  t_cit,  quote 
exit  case 
end  case 

prepare  cit_find  from  select! 

prepare  cit_cnt  from  select2 

display  "  Searching...  "  at  !5,2  attribute(reverse) 

declare  cit_curs  cursor  for  cit_cnt 

foreach  cit_curs  into  cnt  end  foreach 

declare  c_curs  SCROLL  CURSOR  FOR  citjind 

open  c_curs 

CALL  view_cit() 

END  FUNCTION 

#################^############################################### 
FUNCTION  vl0W_cit() 
define 

arg  like  citation.citnumb, 
cc  integer 

FETCH  FIRST  c_curs  into  T_citntion.* 
if  status  =  NOTFOUND 
THEN 

MESSAGE  "No  citation  found." 

SLEEP  1 
MESSAGE  "" 

ELSE 

CALL  distitleO 
let  tmp_cnt  =  ! 
display  ""  at  !5,2 

display  "  ",  cnt,  "  rows  found,"  at  !5, 2  attributef reverse) 
end  if 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Citation  in  the  list."  HELP  !70 
display  "  Searching  ..."  at  15,50  attributo(reversc) 

FETCH  NEXT  c_curs  INTO  T_citation.* 
let  tmp_cnt  s  tmp_cnt  +1 
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IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Citations  in  t)iis  direction." 

SLEEP  1 

let  tmp_cnt  =  cnt 
MESS.4GE  "" 

FETCH  LAST  c_curs  INTO  T_citation.'' 

END  IF 
call  distitleO 
display  ""  at  15,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  15,,i 
attribute(reverse) 

COMMAND  "Previous" 

"View  the  Previous  Citation  in  the  list."  HELP  170 
display  "  Searching  ..."  at  15,50  attributc-(rcvorse) 

FETCH  PREVIOUS  c_curs  INTO  T_citation.* 
let  tmp_cnt  =  tmp_cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Citations  in  this  direction." 

SLEEP  1 
MESSAGE  "" 
let  tmp_cnt  =  1 

FETCH  FIRST  c_curs  INTO  T_citation.» 

END  IF 
call  distitleO 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  15,2 
attribute(reverse) 

COMMAND  "First" 

"View  the  first  Citation  in  the  list."  HELP  170 
display  "  Searching  ..."  at  15,50  attribute(rcverse) 

FETCH  niLST  c_curs  INTO  T_citation.’ 
let  tiTip_cnt  ^  1 
cal!  distitiel.) 

display  "  ",fmp_cnt,  "  of ",  cnt,  "  rows"  at  15,2 
attribute(reverse) 

COMMAND  "Last" 

"View  the  Last  Citation  in  the  list."  HELP  170 
display  "  Searching  ..."  at  15,50  attributefreverse) 

•  message  "Searching  for  last  record...." 

FETCH  LAST  c_curs  INTO  T_citation.* 
let  tmp_cnt  =  cnt 
message  "" 
call  distitleO 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  15,2 
attributefreverse) 
command  "Update" 

"Update  citation  data"  HELP  171 
call  update_cit(T_citation.citscrial) 
command  "Delete" 

"Delete  this  entry  from  database  <submcnu>"  HELP  172 
menu  "DELETE-JOURNAL-CIT" 
command  "This-Table" 

"Delete  just  the  data  in  the  citation  table"  HELP  174 
call  deletc_cit(T_citation.citsenal) 
exit  menu 

command  "All-Tables" 

"Delete  all  information  in  database  related  to  this  enlr)''  <DANGER>!"  HELP  175 
call  dclete_all(T_citation.citnumb) 
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exit  menu 
command  "Exit" 

"Exit  Delete  Submenu"  HELP  2 
exit  menu 
end  menu 

COMMAND  "Query-Again" 

"Enter  new  search  criteria"  HELP  176 
close  c_curs 
let  citnumber  =  "" 
call  find_cit(citnumbcr) 
exit  menu 
COMMAND  "Exit" 

"Leave  tnis  menu"  HELP  2 
close  c_curs 
EXIT  MENU 
END  MENU 
END  FUNCTION 

######################?)############################################### 

FUNCTION  update_clt(tmp_citserial) 

DEFINE 

ctitlel,  ctitle2,  ctitieS,  ctitle4  char(63), 
cpagel,  cpage2,  tmp_pago  charts), 
cvo)  char(4), 
citvol  char(4), 
tmp_add  char(2), 
jnme  like  journlst.jabrv, 
bnme  like  bookist.bname, 
tmp_auth  like  authors.authname, 
argcit  like  citation.citnumb, 
argfile  like  dtation.dtfile, 
tmp...  itnum  like  citation.citnumb, 
tmp_citfi!e  like  citation.citfile, 
c_cnt  smallint, 
lenl,  len2,  len3  smallint, 
cc,  tmp_citserial  integer 
#lnitial  setup 
MESSAGE  "" 
let  sw  =  0  • 

let  lenl  ■  length(T_citation.citpage) 
for  X  »  1  to  lenl 

if  T_dtation.dtpage(x|  a  then 

let  cpagel  »  T_citation.citpagc{l,x-l] 
if  lenl  >  X 
then 

let  cpage2  a  T_citation.citpagclx+l,lenll 

else 

let  cpagc2  a  "?" 
end  if 
exit  for 
end  if 
end  for 

let  tmp_citfile  =*  T_citation.citfiIe 
let  tmp_citnum  a  T_citation.citnumb 
let  ctitlel  a  T_citation.cittitlcl  1,631 
let  ctitle2  «  T_citation.cittitle|64,l26| 
let  ctitle3  a  T_citation.cittitle[127,1891 
letctitle4  »  T_citation.cittitlel  190,250) 


roxitf  knowledge  Svsf^Stou^^^ 


options  input  wrap, 

help  file  “tkshelp.msg", 
help  key  control-n 
INPUT 

T_citation.citsource, 

T_citation.citlocate, 

T_citation.citvol, 

cpagel,  cpage2, 

T_citation.dtdate, 

T_citation.dtnumb, 

T_dtation.dtfile 

ctitlel,  ctitJe2,  ctitle3,  ctitle4 

WITHOUT  DEFAULTS 

FROM 


citsoufce.ci  ticca  te,citvol, Cl  tpage,cp2, 
citdate,  citnumb,citfile,cittitie,  ct2,  ct3,  ct4 
on  key(interrupt) 
let  sw  =  1 


exit  input 

ON  Key(contiol-\v) 
case 


when  in/ieldfcitnumb) 
call  showhelpd  12) 
when  infield(citsource) 
call  showhelpd 00) 
when  infield(dtlocate) 
call  showhelpdOl) 
when  infield(citvol) 
call  showhelpd 02) 
when  infield(citpago) 
cal!  showhelpd 03) 
when  in/ie;d(cp2) 
call  showhelpd 03) 
when  infieidlcitdate) 
call  showhelpd04) 
when  infieid(cittitle) 
call  showhelpd 05) 
end  case 


before  field  citsource 

MESSAGE  "Enter  source  code  OR  press  F5  for  journal,  F6  for  book  help." 

ON  Key(F5,CONTROL-F) 
if  infield(citsourcc)  then 

let  T_citation, citsource  «  sc'e_)ourn() 
next  field  citsource 
end  if 

ON  Key(F6,CONTROL-B) 
if  infield(cifsourco)  then 

call  sec_book()  returning  T_citation. citsource 
next  field  citsource 
end  if 

after  field  citsource 

if  T_citation. citsource!  1,1 1  »  ")" 
then 

select  jabrv  into  jnme  from  journlst 

where  journlst. jeode  »  T_citation. citsource 
_ display  jnme  to  impname _ 
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else 


select  bname  into  bnme  from  booklst 

where  booklst.bcodc  =  T_citation.citsource 
display  bnme  to  tmpname 

end  if 

before  field  citvol 
for  X  =  1  to  4 

if  T_citation.citvol[x]  <>  "0"  then 

let  T_citation.citvol  =  T_citalion.citvol[x,4l 
display  by  name  T_citation.citvol 
exit  for 
end  i' 
end  for 

let  cvol  =  "0000" 
after  field  ciU'ol 

let  lenl  =  length{T_citation.citvol)-l 
let  cvol[4-lenl,4]  =  T_citation.citvoi 
display  by  name  T_citation. citvol 
before  field  citpage 

if  cpageldl  =  "0"  then 
for  x  =  1  to  5 

if  cpagel(x)  <>  "0"  then 
let  cpagel  =  cpagel{x,51 
let  tmp_pagc  =  cpagel 
display  tmp_pa.ge  to  citpage 
exit  for 
end  if 
end  for 
end  if 

after  field  citpage 

let  T_citation.dtpage  =»  cpagel 
let  len2  =  !ength(T_dtaticn.citpage)-l 
let  cpagel  =  "00000" 
let  cpagel(5-len2,5]  »  T_dfalion.citpage 
let  tmp_page  =»  T_dlation.citpage 
display  T_citation.citpage  todtpage 
let  T_citation.citpage  »  T_citation.cilpage  clipped, 
before  field  cp2 

if  cpage2[l]  *  "0"  then 
for  X  a  1  to  5 

if  cpage21xl  <>  "0"  then 
let  cpagc2  »  cpage21x,51 
display  cpagc2  to  cp2 
exit  for 
end  if 
end  for 
end  if 
after  field  cp2 

if  cpage2  <  cpagel 
then 

error  beep,  "Last  page  less  than  first  page!!!" 
next  field  citpage 
else 

display  cpagc2  to  cp2 
let  T_citation. citpage  » 

T_citJtion. citpage  clipped,  cpage2  clipped 

end  if 
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after  field  dtdate 


let  T_citation.citnumb  =  T_citation.citsource  clipped,"-", 
cvol,"-", 
cpagel,"-", 

T_citation.citdate 

display  T_citation.citnumb  to  citnumb 
after  field  otnumb 

if  T_citation.citnumb  is  nail 
then 

error  beep,  "Must  have  citation  number!" 
next  field  citdate 

else 


if  T_citaticn.cnnu.nD  <>  tmp_cimum 
then 


let  argcit  =  T_citation.citnumb  clipped,"^" 
select  countC')  into  cnt  from  citation 
where  citnumb  like  argcit 
if  cnt  >=  1 


then 


call  citnumb_exists(argcit) 
current  window  is  citl 
display  ""  at  ’,1 
end  if 

end  if 

select  authnam  into  tmp_auth 
from  authors 

where  aucitnumb  =  tmp_citnum 
and  authsig  =  1 
if  status  =  N'OTFOUND 

then  let  tmp_auth  =  "ANON" 
end  if 

foi  X  -  2  to  4 

if  tmp_auth(xl  =  '■  " 
then 


let  tmp_auth  a  tmp_auth(l,x-ll 
exit  for 
end  if 
end  for  * 

if  lengthtT_citation.citnumb)  >  22 

then  let  tmp_add  =»  ".",T_citation.citnumb[24l 
end  if 

let  T_citation.citfile  »  tmp_authll,4l  clippc'd,".", 
T_citation.citvo)  clipped,".", 
tmp_page  clippc-d,".", 

T_citation.citdate|3,  41, 
tmp_add 

display  by  name  T_citation.citfilo 
end  if 

after  field  citfile 

if  T_citation.citfilc  is  null 
then 


error  beep,  "Must  have  citation  file  number!" 
next  field  citdate 

if  T_citation.atfilc  <>  tmp_cilfilc 
then 

_ let  argfilc  ■  T_citatiun. citfile  clipped,  "%" 
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select  count(*)  into  cnt  from  citation 
where  citfiie  like  argfile 
if  cnt  >=  1 
then 

call  citi'ile_exists(argfilc) 
current  window  is  citl 
display  ""  at  1,1 
end  if 

end  if 

end  if 
after  input 

let  T_citation.attille  =  ctitlel,ctitie2,ctitle3,ctitle4[l,61] 
END  INPUT 

options  help  key  controi-w 
if  sw  =  1  then  return  end  if 
UPDATE  citation  set  citation.*  =  T_citation.* 
where  citation.citserial  =  tmp_citscrial 
#  update  other  tables 
UT'DATE  authors 

set  aucitnumb  =  T_citation.dtnumb, 
aucitfile  =  T_citation.citfile 
where  aucitnumb  =  tmp_ctnum 
UPDATE  keywords 

set  keycitnumb  =  T_citation.citnumb, 
keycitfile  =  T_ciiation.citfile 
where  keycitnumb  =  tmp_citnum 
UPDATE  paperover 

set  papcitnumb  =  T_citation.citnumb, 
papcitfile  =  T_citation.cittile 
where  papcitnumb  =  tmp_citnum 
UPDATE  stdydsgn 

set  stycitnumb  =  T_citation.citnurrib, 
stycitfile  =  T_citation.citfile 
where  stycitnumb  =  tmp_citnum 
LPDATE  subjgrp 

set  sgcitnumb  =  T_citation.citnumb 
where  sgcitnumb  -  tmp_citnum 
UPDATE  exporcgm 

set  excitnumb  *  T_citation.citnumb 
where  excimumb  =  tmp_citnum 
UPDATE  expogrp 

set  egcitnumb  =  T_citation.citnumb 
where  egatnumb  »  tmp  citnum 
UPDATE  dinfind 

set  cfatnumb  *  T_citation.citnumb 
where  cfcitnumb  =  tmp_citnum 
LPDATE  tkscomment 

set  cocimumb  =•  T_citation.citnumb, 
cocitfile  »  T_citation. citfiie 
where  cocitnumb  » tmp_citnum 
h\ESSAGE  “Row  updated" 

SLEEP  1 
MESSAGE 

let  citnumber  *  T_citation.citnumb 
#  Author  data  update  option 
call  auwinopenO 
call  see_auth(citnumbcr) 
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prompt  "Do  you  want  to  update  authors?  ty/n'  "  for  char  answer 
if  upshift(answer)  =  "Y"  then 
call  update_auth(citnumber) 
call  auwincloseO 
end  if 

#  Keyword  data  update  option 

let  citnumber  =  T_citation.citnumb 

call  keywinopenO 

call  see_keysuitn umber) 

prompt  "Do  you  want  to  update  keywords?  (y/n)  "  for  char  answer 
if  upshiftfanswer)  =  "Y"  then 
call  update_key(citnumbcr) 
call  keywincloseO 
end  if 

end  FUNCTION 

•/)<»##;;«###»;}♦########################### 

FUNCTION  deleie_clt(tmp_c!tserial) 

Define  answer  chard), 
tmp_citserial  integer 

PROMPT  "Are  you  sure  you  want  to  delete  this  entry?  (y/n)  "  for  ariswer 
IF  upshift(answer)  =  "N" 
then 

CLEAR  FORM 

MESSAGE  "Row  NOT  deleted." 
sleep  1 

MESSAGE  "" 

RETURN 

else 

DELETE  FROM  citation  where  citserial  =  tmp_citserial 
clear  form 

MESSAGE  "Row  ddefed." 

SLEEP  1 
MESSAGE  "" 
end  if 

END  FUNCTION 

FUNCTION  dIstItleO 

define 

ctitl,ctit2,ctit3,ctit4  char(63), 
cpgl,  cpg2  charts), 
lenl  smallinh 

authors,keywords,paperover, designs  smallint, 
subjects,exposures,signs  smuillint, 
tmp_name  chart 60) 
current  window  is  citl 
letctitl  =  T_citation.cittitle(l,63| 
let  ctit2  ■  T_citation.cittit!c(64,126) 
let  ctit3  =  T_citation.cittitle(127,189| 
let  cht4  ■  T_citation.cittitlcl  190,2501 
let  lenl  -  length(T_atation.citpage) 
if  lenl  >  0  then 
for  X  »  1  to  lenl 

if  T_atarion.citpage(x)  »  then 

let  cpgl  =1  T_citation,citpagc(l,x-l  | 
if  len  1  >  X 
then 
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let  cpg2  =  T_citaticn.dtpage{x+l,lenll 
else 

let  cpg2  =  "?" 
end  if 
exit  for 
end  if 
end  for 
end  if 

if  T_dtation.citsourcc{l,]l  =  "}" 
then 

select  jabrv  into  tmp_name  from  joumist 
where  jcode  =  T_citation.citsource 
else 

select  bname  into  tmp_nanie  from  booklst 
where  bcode  =  T_citation.citsource 

end  if 
display 

T_ci  tation.ci  tnumb, 

T_citation.citsource, 

T_citation.citfile< 

T_citation.dtlocate, 

T_citation. entry  date, 

T_  citation. dtvol, 
cpgl,cpg2, 

T_citation.citdate, 
ctitl,  ctit2,  ctit3,  ctit4, 
trnp_name 
to 

dtnumb,  citsource,  dtfile.citlocate, 
entrydate,  citvol,  citpage,  cp2, 
dtdate,  dttitle,  ct2,  ct3,  ct4,  tmpname 
#display  "  Counting..."  at  i5,.30  atthbutc('-everse) 
select  couiitf’’)  into  authors 
fvcm  authors 

v/here  audtnumb  =  T_dtation.citnuinb 
di.splay  by  name  authors 
select  countt*)  into  keywords 
from  keywords  • 
where  keycimumb  »  T_citation.citnumb 
display  by  name  keywords 
select  countf*)  into  paperover 
from  paperover 

where  papdtnumb  =  T_dtation. dtnumb 
display  by  name  paperover 
select  count(*)  into  designs 
from  stdydsgn 

where  stycitnumb  *  T_citation.cimumb 
display  by  name  designs 
select  countC*)  into  subjects 
from  subjgrp 

where  sgdtnumb  »  T. citation. dtnumb 
display  by  name  subjects 
select  count!*)  into  exposures 
from  exporegm 

where  excitnumb  *  T_citation.citnumb 
display  by  name  exposures 
select  countt*)  into  signs 
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from  clinfind 

where  cfcitnumb  =  T_citation.citnumb 
display  by  name  signs 
display  ""  at  15,50 
END  FUNCTION 

FUNCTION  seeJournO 

DEFINE  j_list  ARRAY[301  of  RECORD 
jabrv  like  journlst.jabrv, 
jcode  like  journlst.jcode 
end  record. 


hold  jcode  like  ioumlst.jcode, 
counter  smallint 

Open  Window  seejl  at  3,20  with  form  "jlist" 
attribute  (border) 

OPTIONS  input  wrap, 
help  file  "tkshelp.msg" 

MENU  "J-UST" 


command  "Find"  HELP  106 


let  sw  =0 
dear  form 

construct  queryl  on  jabrv,  jcode  from  j_listirig[ll,* 
let  selectl  =  "select  jabrv,  jcode  from  journlst  where  ", 
queryl  clipped 
prepare  slct_4  from  selectl 
declare  j_curs  cursor  for  slct_4 
let  counter  »  1 

foreach  j_curs  into  j_listlcounterl.* 
let  counter  =»  counter  +  1 
if  counter  >  30  then 
exit  foreach 
end  if 

end  foreach 


if  counter  =  1  then 

message  'TMo  Journal  found  with  those  first  letters" 
sleep  2 

message  "Try  using  to  moan  any  sequence  of  characters" 
sleep  2 

continue  menu 
end  if 

call  set_count(counter  -1) 

message  "Highlight  a  journal  abbreviation  and  press  ESC" 
Display  array  j_list  to  j_listing.* 
on  key(interrupt) 
let  sw  ■  1 
exit  display 
end  display 
if  sw  =•  1 

then  next  option  "Find" 
else 

let  counter  »  arr_curTO 
let  holdjcode  »  jjistlcountcrj. jcode 
message  holdjcode 
exit  menu 

end  if 

command  "Add"  HELP  107 
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let  sw  =0 

open  window  jw2  at  3,3  with  form  “vocjoum" 
attribute  (Border) 


call  addJournO 

close  window  jw2 

let  holdjcode  =  T_joumlst.jcode 

message  holdjcode 

exit  menu 

command  "Select"  HELP  108 
let  sw  =0 

call  set_count(counter  -1) 

message  "Highlight  a  journal  abbreviation  and  press  ESC" 
Display  array  j_list  to  jjisting.* 
on  key(intcrrupt) 
let  sw  =  1 
exit  display 
end  display 
if  sw  =  1 

then  next  option  "Find" 
else 

let  counter  =  arr_curr() 
let  holdjcode  =  jJist(counter).jcode 
message  holdjcode 
exit  menu 

end  it 

command  "Exit"  HELP  2 
If  sw  =  0  then 
let  holdjcode  =  NULL 
end  if 
let  sw  =0 
exit  menu 
end  menu 
dose  v.indow  sec-jl 
return  hoidjeede 
EfJD  FUNCTION 

FUNCTION  S««_bOOi<() 

DEFINE  b_list  ARRA  Y[301  of  RECORD 
briame  like  booklst.bname, 
bcode  like  booklst.bcode 
end  record, 

holdbcode  like  booklst.bcode, 
counter  smallint 

Open  Window  seebl  at  3,20  with  fom»  "blist" 
attribute  (border) 

MENU  "B-LlSr' 

command  "Find"  HELP  109 
let  sw  aO 
clear  form 

construct  query!  on  bname,  bcode  from  bjistingll].* 
let  select! a  "select  bname,  bcode  from  bookist  where  ", 
query  1  clipped 
prepare  slct_5  from  seiectl 
declare  b_curs  cursor  for  slct_5 
let  counter  *  1 

foreach  b_a'rs  into  b_list[countcrl.* 
let  counter  ■  counter  +  1 
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if  counter  >  30  then 
exit  foreach 
end  if 

end  foreach 


if  counter  =  1  then 

message  "No  Book  found  with  these  first  letters" 
sleep  2 

continue  menu 
end  if 

call  set_count(counter  -1) 

message  "Highlight  a  book  abbreviation  and  press  ESC" 
Display  array  b_list  to  b_li3ting  ‘ 
on  key(interrupt) 
let  sw  =  1 
exit  display 
end  display 
if  sw  =  1 

then  next  option  "Find" 
else 

let  counter  =  aiT_curr() 
let  holdbcode  =  bjistfcounterl.bcode 
message  holdbcode 
exit  menu 

end  if 

command  "Add"  HELP  110 
let  sw  =0 

open  window  bw2  at  3^  with  20  rows,  68  columns 
attribute  (Border) 

open  form  s_book  from  "bookadd" 

display  form  s_book 

call  add_book(T 

close  window  bw2 

let  holdbcode  *  T_booklst.bcode 

message  holdbcode 

exit  menu 

command  "Select"  HELP  111 
let  sw  =0  * 

call  set_count(counter  -1) 

message  "Highlight  a  book  abbreviation  and  press  ESC" 
Display  array  b_list  to  b_listing.* 
on  key(interrupt) 
let  sw  »  1 
exit  display 
end  display 
if  sw  =■  1 

then  next  option  "Find" 
else 

let  counter  »  arr_curr() 
let  holdbcode  =  b_li5t(counter|.bcode 
message  holdbcode 
exit  menu 

end  if 

command  "Exit"  HELP  ? 
if  sw  -  0  then 
let  holdbcode  ■  NULL 
end  if 
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let  sw  =0 
exit  menu 


end  menu 
close  window  seebl 
return  holdbcode 
END  FUNCTION 

###################################################################### 
FUNCTION  get_auth1() 

define  authl  like  authors.authname 
call  alrt260plop() 

display  "Please  enter  last  name  of  first  author."  at  1,1 

prompt  ">  "  for  authl 

let  authl  =  upshiitlauthl.l 

call  alrt260plcl() 

return  authl 

END  FUNCTION 

#############################5?######################################## 

FUNCTION  cltnumb_exist3(c_num) 
define  c_num  like  citation.citnumb 

error  "Information  for  that  citation  number  has  already  been  entered!" 
sleep  1 

call  show_.fullcit2(c_num) 

END  njNCTION 


FUNCTION  dtfile_exists(c_file) 
define  c_file  like  dtation.citfile 

error  "Information  for  thuit  file  number  has  already  been  entered!" 
call  show_file(c  file) 

END  FUNCnON 

#######################4############################################### 

FUNCTION  Qxist_citnunib(c_c:t) 

define  c_dt  like  citation.citnumb, 

.dces.exist  smalHnt 
select  countf*)  into  docs„exist 
from  citation 
where  dtnumb  like  c  dt 
{ 

if  does_exist  =«  0 

then  error  beep,"No  CITATION  with  that  NUMBER" 
sleep  2 

end  if 


return  doe9_exist 
END  FUNCTION 

####################################################################### 
FUNCTION  exlst_cltflle(c_clt) 
define  c_cit  like  dtation.citfile, 
does_exist  smallint 
select  count(*)  into  does_exist 
from  citation 
where  dtfile  like  c  cit 
( 

if  does.exist  =»  0 

then  error  beep, "No  CITATION  with  that  NUMBER" 
sleep  2 


end  if 
) 
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return  does_exist 
END  FUNCnON 


#tksauth.4gl 

( 

TITLE:  lksauth.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  llliois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 
add_auth(a_cit) 
find_auth(:_cit) 
view_auth() 
disp_auth(a_dt) 
update_auth(a_cit) 
renum_auths() 
delete_auth(a_cit) 
see  auth(c  num) 

) 

DATABASE  tkstest 
GLOBALS  "tksglob.4gl" 

# - # 

FUNCTION  a(id_auth(a_clt) 

define 

a_cit  like  authors-aucitnumb, 

R_authnumb  like  authors.aucitnumb, 

R_authfile  like  authors.aucitfilc, 
tmp_cnt,  cnt,  numauth  snaallint 
let  sw  =<  0 
call  auwinopenO 
clear  form 

display  a_cit  to  aucitnumb 
select  citfile  into  citfileno  from  citation 
where  citnumb  =  a_cit 
display  citfileno  to  aucitfile 
if  a_cit  is  null  then 
options 

input  no  wrap 
clear  form 

input  R_authnumb,  R_authfile  from  aucdnumb,  aucitfile 
on  key(interrupt) 
clear  screen 
let  sw  a  1 
exit  input 
end  input 
options  input  wrap 
let  a_cit  a  R_authnumb 
let  citfileno  »  R_authfile 

else 

let  R_authnumb  ■  a_cit 
let  R_authfile  »  citfileno 
end  if 

options  input  no  wrap 
for  cnt  a  1  to  10 

initialize  a_aiTay(cntl.*  to  null 
end  for 
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call  set_count(10) 
options 

help  file  "tkshelp.msg" 
{  help  key  F4  ) 


input  array  a_array  from  ajisting.*  HELP  200 
on  key(interrupt) 
clear  screen 
let  sw  =  1 
return 

display  R_authriumb  to  auritnumb 
display  R_authfile  to  aucitfile 
before  field  authname 
let  cuiT_arr  =  arr_curr() 
after  field  authname 

let  a_array[curr_arrl.sig  =  arr_curr() 
let  scr_arr  =  scrJineO 
before  field  authsig 

display  a_array[curr_arr].sig  to  a_listinglscr_ani.authsig 
after  df  lete 

call  renum_auths() 
after  insert 

call  renum_auths() 
after  input 

let  numauth  =  aiT_count() 
end  input 

if  sw  =  1  then  return 
end  if 

for  tmp_cnt  a  1  to  numauth 

if  a_array(tmp_cnt).auth  is  not  null 
then 

insert  into  authors  values  (R_au!hnumb,  R.,authfile,0, 
a_array[tmp_cnt!  auth, 
a_array(tmp_cnti.sig) 

end  if 
end  for 

end  FUNCTION 

# - ■ - U 

FUNCTION  find_auth(t_clt) 
define  t..cit  like  authors-authname 
call  auwinopienO 
case 

when  t_cit  is  null 
clear  form 

let  int_flag  ^  0 

construct  query!  on  aucitnumb,  aucitfile,  authname,  authsig 
from  aucitnumb,  aucitfile,  authname,  authsig 
if  int_flag  <>  0  then  rebarn  end  if 
let  select!  ■  "select  *  from  authors  where  ", 
query!  clipped 

let  select2  »  "select  countt*)  from  authors  where  ", 
query!  clipped 
exit  case 
otherwise 

let  select!  »  "select  *  from  authors  where  ", 

"  aucitnumb  »  ", quote,  t_cit  clipped,  quote 
let  sclect2  =  "select  countC’  from  authors  where  ", 
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“  aucitnumb  =  ",  quote,  t_cit  clipped,  quote 
exit  case 
end  case 

prepare  select_auth  from  select! 
prepare  au_cnt  from  select2 

display  "Searching . "  at  11,2  attributefreverse' 

declare  at_curs  cursor  for  au_cnt 
foreach  at_curs  into  cnt 
end  foreach 

declare  auth_curs  scroll  cursor  for  select_auth 
let  chosen  =  false 
open  auth_curs 
call  view_auth() 
end  FUNCTION 


# - # 

FUNCTION  v!ew_auth() 

define  cc  integer 

fetch  first  aulh_curs  into  T_authcrs.* 

let  cc=status 

if  (cc  <  0)  then  error  cc 

end  if 

if  status  =  notfound  then 

message  "No  citation  found." 
sleep  1 
message  "" 
else 

display  "  ",  cnt,  "  rows  found"  at  11,2  attributcKreverse) 
display  "ESC  to  continue"  at  11,22  attributc(reversc) 
call  disp_auth(T_authors.aucitnumb) 
let  tmp_cnt  =  1 
display  ""  at  11,2 
end  if 

menu  "BROWSE" 

command  "Next"  "View  the  next  Author  in  the  list."  HELP  170 
fetch  next  auth_curs  into  T_authors.* 
let  tmp_cnt  »  tmp_cnt  +  1 
if  status  »  notfound  then 

message  "No  more  Authors  in  this  direction." 
sleep  1 

let  tmp_cnt »  cnt 
message  "" 

fetch  last  auth_curs  into  T_authors.* 
end  if 

display  "  ",lmp_cnt,"  of  "cnt,"  rows"  at  11,2  attributc(reverse) 
call  disp_auth(T_aufhors.aucitnumb) 
display  ""  at  11,3 

command  "Previous"  "View  the  Previous  Author  in  the  list."  HELP  170 
fetch  previous  auth_curs  into  T_authors.* 
let  tmp_cnt  »  tmp_cnt  - 1 
if  status  ■  notfound  then 

message  "No  more  Authors  in  this  direction." 
sleep  1 
message  "" 
let  tmp_cnt  *  1 

fetch  first  auth_curs  into  T_authors.* 
end  if 

display  "  ",tmp_cnt,"  of  ",cnt,"  rows"  at  11,2  attnbute(reverse) 
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call  disp_auth(T_authors.aucitnumb) 
display  ""  at  11,1 

command  "First"  "View  the  first  Author  in  the  list."  HELP  170 
message  "Searching  for  first  record...."  attribute(reverse) 
fetch  first  auth_curs  into  T_authors.’' 
let  tmp_cnt  =  1 
message  "" 

display  "  ",tmp_cnt/'  of  ",cnt,"  rows"  at  11,2  attribute(reverse) 
call  disp_3uth(T_authors.aucitnumb) 
display  ""  at  11,3 

command  "Last"  "View  the  Last  Author  in  the  list."  HELP  170 
message  "Searching  for  last  record...."  attributefreverse) 
fetch  last  auth_curs  into  T_authors.*' 
let  tmp_cnt  =  cnt 
message  "" 

display  "  ",tmp_.cnt,"  of  ",cnt,"  rows"  at  11,2  attributefreverso) 
message  "" 

call  disp_auth(T_authors.auc!mumb) 
display  ""  at  11,3 

command  "Update"  "Add,  Modify,  or  Remove  Authors  in  Existing  Citation"  HELP  171 
call  update_auth(T_authors.aucitnumb) 
command  "Delete"  "Delete  ALL  authors  for  a  given  citation"  HELP  205 
call  delete_auth(T_authors  aucimumb) 
command  "Query- Again"  "Enter  new  search  criteria"  HELP  176 
close  auth_curs 
let  citnumber  =  "" 
call  find_auth(citnumber) 
exit  menu 

command  "Exit"  "Leave  this  menu"  HELP  2 
close  auth_curs 
exit  menu 
end  menu 
end  FUNCnOM 

FUNCTION  d!sp_auth(a_clt) 
define 

a_cit  like  authors.aucitnumb, 
counter  smallint 
clear  form 

let  a_cit  a  T_authors.audtnumb 
let  citfileno  =  T_authors.aucitfile 
display  a_cit  to  aucitnumb 
display  dtfileno  to  aucitfile 
declare  au_curs  cursor  for 

select  autlmame,  authsig  from  authors 
where  auatnumb  *  a_cit 
order  by  authsig 
let  counter  »  1 

foreach  au_curs  into  a_arTay[countcrl.* 
let  counter  =  counter  +  1 
if  counter  >  10  then 
exit  foreach 
end  if 

end  foreach 

call  set_count(counter  -1) 

display  "ESC  to  continue"  at  1 1,22  attnbutc(rcvcrsc) 

display  array  a_array  to  a_listing.*  _ 


55 


I 

I 


1 


I 

I 


I 

I 


on  key(inteiTupt) 
exit  display 
end  display 
close  au_curs 
end  FUNCTION 
# - 


FUNCTION  update_auth(a_cit) 

define 

a_cit,  tmp_citnum  like  authors. aucitnumb, 
cite  like  authors.aucitfile, 
counter  smallint 
message  "" 
let  sw  =  0 

let  tmp_citnum  =  a_cit 
options  input  no  wrap 
display  a_cit  to  aucitnumb 
select  citfile  into  cite  from  citation 
where  citation.citnumb  =  a_cit 
display  cite  to  aucitfile 

input  a_cit,  cite  without  defaults  from  aucitnumb,  aucitfile 
on  key(interrupt) 
let  sw  a  1 
exit  input 

after  field  aucimumb 
if  a_cit  is  null  then 

next  held  auatnumb 
message  "MUST  have  number!!!" 
end  if 

if  a_cit  <>  tmp_citnum  then 

call  exist_atnumb(a_at)  returning  x 
if  X  =  0 
then 

error  "No  CITATION  entered  with  this  number" 
next  field  aucitnumb 

else 

select  count!*)  into  x 
from  authors 
where  auatnumb  a  a_cit 
if  X  >  0 
then 

error  "Author  data  already  exists  for  this  number.' 
next  field  aucitnumb 


end  if 

end  if 
end  if 
end  input 

if  sw  ■  1  then  return  end  if 
message  "" 
options  input  wrap 

input  array  a_array  without  defaults  from  a_listing.* 
on  key(intcrrupt) 
let  sw  ■  1 
exit  input 

display  "ESC  to  continue"  at  1 1,22  .itlnbute  (reverse) 
Ix'lore  field  authname 
let  curr_arr  -  arT_cuiT<) 
let  scr  arr  •  scr  lincH) 


after  field  authname 

let  a_array[curr_arrl.sig  =  aiT_curr{) 
let  scr_arr  =  scr_lineO 
before  field  authsig 

display  a_array[curr_arrl.sig  to  a_listing[scr_arrl. authsig 
after  insert 

call  renum_authsO 
after  delete 

call  renum_auths() 
end  input 

if  sw  =  1  then  return  end  t 
delete  from  authors 

where  aucitnumb  =  tmp_citnum 
for  counter  =  1  to  arr_count() 

if  a_ari'ay[counterl.auth  is  not  null 
then 

insert  into  authors 
values  (a_.cit,cite,0, 

a_array[counteri.auth, 
a_arTay  [counter]. sig) 

end  if 
end  for 

end  FUNCTION 

# - # 

FUNCTION  ronum_authsO 

define  a_cur,  a.cnt,  sjin,  s_tot,ksmallint 
let  a_cur  =»  arT_curr() 
let  a_cnt  =  air_count() 
let  s_lin  »  scrJineO 
let  3_tOt  a  4 
for  k  =  a_cur  to  a_cnt 
let  a.arrayikl.sig  =  k 
if  s_iin  <a  s.tot  tfien 

display  k  to  a_listingis.!inl  aurhsig 
let  sJin  a  s_hn  r  1 
end  if 
end  for 

end  FUNCTION 

# - # 

FT  NOTION  d«leti»_au!h(a_clt) 
define  answer  chart  1 ), 

a_cit  like  authors.aucitnumb 

Prompt  “Delete  ALL  author  entries  for  this  Citahon  (y/n)  "  for  answer 
if  upshift(ar\swer)  »  "Y"  then 

delete  from  authors  where  aucitnumb  ■  a_cit 
clear  form 

message  “ROW  DELETED!" 

sleep  1 

Message 

else 

clear  form 

message  “Row  Nf  JT  deleted." 
sleep  1 
Message  “" 
return 
end  if 

end  FUNCTnON 


#■ 

FUNCTION  see_auth(c_num) 

define  c_num  like  authors.auotnumb 
call  auv/inop>en() 
clear  form 

display  c_num  to  aucitnumb 

display  "  Hit  ESC  to  leave  array.  "  at  11,10  attributeireverse) 
declare  au_se<;  cursor  for 
select  *  from  authors 
where  aucitnumb  =  c_num 
order  by  authsig 
let  counter  =  1 
foreach  au_see  into 

T_authors.aucitnumb, 

T_authors.aucitfile, 
r_authors.auserial, 
a_array[counterl.auth, 
a_array[counter].sig 
let  counter  ■=  counter  +  1 
if  counter  >  10  then 
exit  foreach 
end  if 

end  foreach 

display  by  name  T_authors.aucitfile 
call  set_count(counter  -1) 
display  array  a_array  to  a_listmg.* 
on  key(interrupr) 
exit  display 
end  display 
close  au_sc*e 
end  FU  NCTION 


#tkskey.4gl 

{TITLE:  tkskey.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPlC 
Funded  by  US  Anny  Contract  DAMD-17-C-7114 
Contains  the  following  functions; 
add_key(k_cit) 
find_key(t_cit) 
view_key() 
disp_key(k_cit) 
update_key(k_cit) 
delete_key(k_cit) 
seekeylistO 
see  keys(c_num) 

) 

DATABASE  tkstest 
GLOBALS  "tksglobAgU 

FUNCTION  add_key(k_cit) 
define 

k_cit  like  keyword'  keyatnumb, 

R_keynumb  like  keywords.keycitnumb, 

R_keyfile  like  keywords. kcycittile, 
tmp_keyword  like  keywords  keyword, 
tmp_code  like  keywords.kcycode, 
numkey  smallint 
^initial  setup 
let  sw  «  0 
cal!  keywinopenO 
clear  form 

display  k_cit  to  keycitnumb 
if  citfileno  is  null 
then 

select  citfi.'e  into  cittilono  from  citation 
where  dtnumb  =  k_cit 
display  citfileno  to  keycitfiie 
end  if 

if  k_cit  is  null  * 
then 

options  input  no  wrap 
clear  form 

input  R_kcynumb,  R_kcyfilc  from  keycitnumb,  keycitfiie 
on  key(interrupt) 
clear  screen 


let  sw=l 
exit  input 
end  input 

let  k_cit  ■  R_kcynumb 
let  citfileno  »  R_keyfilc 
else 

let  R_kcynumb  »  k_c!t 
let  R_keyfile  ■  citfileno 
end  if 

for  tmp_cnt  ■  1  to  20 

initialize  k_array(tmp_cnt|.’  to  null 
end  for 
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display  R_keynumb  to  keycitnumb 
display  R_keyfile  to  kaycittile 
options  input  wrap,  help  file  "tkshelp.msg" 
input  array  k_array  from  k_hsting.*  HELP  300 
on  key(interrupt) 
exit  input 

before  field  keycode 

let  curT_arr  =  drr_curTO 
let  scr_arr  =  scr_line() 
after  field  keycode 

if  k_array[curr_arrl.code  is  not  null 
then 

let  tmp_code  =  k_aiTaylcurr_arrl.code 
select  kword  into  tmp_kcyword  from  keylist 
where  keylist. kcodc  =  tmp_codc 
»f  status=NOTFOUND 
then 

call  seekeylistO  returning  k_arraylcurr_arr].code 
display  k_array(curr_arrj.code 
to  k_listing(scr_arr).keycode 
select  kword  into  tmp_keyword  from  keylist 
where  keylist. kcode  =  k_arrayIcurrjaiTl.code 
let  k_array(curr_arr|.keys  =  tmp_keyword 
display  tmp_keyword  to  k_listinglscr_arr]. keyword 
next  field  keyword 

else 

display  tmp_code  to  k_listing(scr_arr!. keycode 
display  tmp_kcyword  to  k_listinglscr_arr]. keyword 
let  k_array|curr_arrl.keys  =  tmp_keyword 
let  k_array|curr_aiT|.code  *  tmp_code 
end  if 

el  St* 

next  field  keyword 
end  if 

after  field  keyword 

if  k_array(curr_arr|.keys  is  not  null 
then 

let  tmp_kcy  word  =  k_array(curr_arr).keys 
select  kcode  into  tmp_code  from  keylist 
v'here  keylist. kword  =«  tmp_keyword 
if  status=NOTFOUND 
then 

message  beep,  "This  is  not  an  acceptable  keyword" 

else 

let  k_arraylcurr_arrl.code  »  tmp_codc 
let  k_array(curr_arT|  keys  ■  tmp_keyword 
display  tTnp_codc  to  k_listing(scr„arr). keycode 
display  tmp_kcyword  to  k_listing(scr_arr). keyword 
end  ;f 

end  if 

before  insert 

let  numkey  ■  arr_count() 
end  input 

if  sw  ■  1  then  return  end  if 
for  tmp_cnt  *  1  to  numkey 
insert  into  keywords  value's 
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(R_keynumb, 

R_keyfile, 

0, 

k_array  [  tmp_ai  t] .  key  s, 
k_array[tmp_cnt]  .code) 
end  for 
clear  screen 
END  FUNCTION 

#################################################################### 
FUNCTION  flnd_key(t_cit) 

define  t_cit  like  keywords-keycitnumb 
case 


when  t_cit  is  null 
call  keywinopenO 
clear  form 

message  "Enter  search  criteria  and  hit  ESC  to  search." 
let  int_flag  =  0 

construct  queryl  on  kcycitnnmb,  keycitfile,  keycode,  keyword 
from  keydtnumb,  keycitfile,  keycode,  keyword 
if  int_flag  <>  0  then  return  end  if 

let  selectl  =  "select  *  from  keywords  where  ",  queryl  clipped 
let  select2  »  "select  count!*)  from  keywords  where  ", 
queryl  clipped 
exit  case 
otherwise 

let  selectl  *  "select  *  from  keywords  where  ", 

"  keydtnumb  *  ",  quote,  t_dt,  quote 
let  select2  »  "select  count!*)  from  keywords  where  ", 

"  keydtnumb  ■  ",  quote,  t_cit,  quote 
call  keywinopjen!) 
exit  case 
end  case 

prepjare  find_key  from  select! 
prepare  key_cnt  from  select2 
display  '  Searching...  "  at  18,2  attributeirevorse) 
declare  ky_curs  cursor  for  key_cnt 
foreach  ky_curs  into  cnt 
end  foreach 

declare  key_cur3  scroll  cursor  or  find_key 

open  key_cur5 

call  view_key!) 

close  key  curs 

END  FUNCTION 

FUNCTION  vl«w_k«y() 

fetch  first  key_curs  into  T_key words.* 
if  status  •  notfound 
then 

message  "No  citation  found." 
sleep  1 
return 
end  if 
message  "" 

display  "  ",  cnt,  "  rows  found."  at  18, 2  attnbutcfrovcrse) 
call  disp_key!T_kcywords.keycilnumb) 
let  tmp  cnt  ■  1 
menu  "BROWSE" 
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command  "Next" 


"View  the  next  Keyword  in  the  list."  HELP  170 
fetch  next  key_curs  into  T_keywords.* 
let  tmp_cnt  =  tmp_cnt  +  1 
if  status  =  notfound  then 

message  "No  more  Keywords  in  this  direction." 
sleep  1 

let  tmp_cnt  =  ent 
message  "" 

fetch  last  key_curs  into  T_keywords.* 
end  if 

display  ""  at  18,2 

display  "  ",tmp_cnt,  "  of ",  ent,  "  rows"  at  18,2 
attribute(reverse) 

call  disp_key(T_keywords.keycitnumb) 
display  ""  at  18,3 
corrunand  "Previous" 

"View  the  Previous  Keyword  in  the  list."  HELP  170 
fetch  previous  key_curs  into  T_kcy  words.* 
let  tmp_cnt  =  tmp_cnt  - 1 
if  status  a  notfound  then 

message  "No  more  Keywords  in  this  direction." 
sleep  1 
message  "" 
let  tmp_cnt »  1 

fetch  first  key_curs  into  T_keywords.* 
end  if 

display  ""  at  18,2 

display  "  ",  tmp_cnt,  "  of ",  ent,  "  rows"  at  18,2 
attribute!  reverse) 

call  disp_kev(T.kcywords.keycitnumb) 
display  ""  at  18,3 
command  "First" 

"View  the  first  Keyword  in  the  list."  HELP  170 
fetch  first  key_curs  into  T_kcy  words.* 
let  tmp_cnt  ■  1 
display  ""  at  18,2 

display  '"'Ltmp.cnt,  "  of  ",  ent,"  rows"  at  18,2 
attribute(reverse) 

call  disp_key(T_keywords.keycitnumb) 
display  ""  at  18^ 
command  "Last" 

"View  the  Last  Keyword  in  the  list."  HELP  170 

message  "Searching  for  last  record...." 

fetch  last  key_curs  into  T_kcy words.* 

let  tmp_cnt  *  ent 

message  "" 

display  ""  at  18,2 

diso'iy  "  ",tmp_cnt,  "  of  ",  ent,  "  rows"  at  18,2 
attribute(reverse) 
message  "" 

call  disp_key(T_kcywords.kcycitnumb) 
display  ""  at  18,3 
command  "Update" 

"Add,  Modify,  or  Delete  Keywords  for  This  Citation"  HELP  171 
call  update_key(T_kcywords.kcycitnumb) 
command  "Delete" 
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"Delete  ALL  Keywords  for  a  Given  Citation"  HELP  305 
call  delete_key(T_keywords.keycitnumb) 
command  "Query-Again" 

"Enter  new  search  criteria"  HELP  176 
close  key_curs 
let  citnumber  =  "" 
call  find_key{citnumber) 
exit  menu 
command  "Exit" 

"Leave  this  menu"  HELP  2 
close  key_curs 
exit  menu 
end  menu 
END  FUNCTION 

##########################################»######################### 
FUNCTION  disp_key(k_cit) 
define 

counter  smallint, 
k_dt  like  keywords.keycitnumb 
clear  form 

let  k_,dt  a  T_keywords.keydtnumb 
let  dtfileno  »  T_keywords.keydtfile 
display  k_dt  tokeycimumb 
display  dtfileno  to  keydtfile 
declare  ke_curs  cursor  for 

select  keycode,  keyword  from  keywords 
where  keydtnumb  *  k_dt 
let  counter  » 1 

foreach  ke_curs  into  k_array(counter|.* 
let  counter  »  counter  +  1 
if  counter  >  20  then 
exit  foreach 
end  if 

end  foreach 

call  set_count(counter  -1) 

display  "ESC  to  continue"  at  18,20  attributeireverse) 
display  array  k_array  to  k_listing.* 
on  key(inteiTupt) 
exit  display 
end  display 
close  ke  curs 
END  FUNCTION 

FUNCTION  updal»_k«y(k_cil) 

define 

tmp_citnum  like  keywords-keydtnumb, 
k_dt  like  keywords.keyritnumb, 
cite  like  keywords.keycitfilc, 
counter  smallint, 

tmp_code  like  keywords.kcycode, 
tmp_key  word  like  key  words  key  word 
message  "" 

let  tmp_citnum  ■  k_dt 
options  input  no  wrap 
display  k_cit  to  keydtnumb 
select  dtfile  into  cite  from  dtation 
_  where  citation.dmumb  ■  k_cit 
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display  cite  to  keycitfile 

input  k_cit,  cite  without  defaults  from  koycitnumb,  keycitfile 
on  key(interrupt) 
exit  input 

after  field  keycitnumb 
if  k_cit  is  null 

then  next  field  keycitnumb 

message  "MUST  have  number!!!" 
end  if 

if  k_cit  <>  tmp_citnum 
then 

call  exist_citnumb(k_cit)  returning  x 
if  X  =  0 
then 

error  "CITATION  does  not  exist  for  this  number." 
sleep  2 

next  field  keycitnumb 


else 


select  counU*)  into  x 
from  keywords 
where  keycitnumb  =  k_cil 
if  >0 
then 

error  "Keywords  for  this  citation  number  already  exists" 
sleep  2 

next  field  keycitnumb 
end  if 

end  if 

end  if 
end  input 
message  "" 
options  input  wrap 

input  array  k  .array  without  defaults  from  kjisting.* 
on  key(interrupt) 
exit  input 

before  field  keycode 

let  curr_arr  ■  aiT_curr() 
let  sa_arr  «  scr_line<) 
after  field  keycode 

if  k_anay(curr_arr).code  is  not  null 
then 

let  tmp_code  ■  k_aiTay(curr_arr|.codc 
select  kword  into  tmp.keyword  from  keylist 
where  keylist.kcodc  ■  tmp_code 
ifstatus-NOTFOUND 
then 

call  seckeyiistO  returning  k_array(cuiT_arrl.code 
display  k_array(curr_arr|.code 
to  k_listing(scr_arrl. keycode 
select  kword  info  tmp_kcyword  from  keylist 
where  kcylist.kcode  ■  k_arraylcurr_arr|.code 
let  k_array(curr_arrl.kcys  »  tmp_kcyword 
display  tTnp_keyword  to  k_listinglscT_arr|, keyword 
next  field  keyword 
else 
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display  tmp_codc  to  k_listing(scr_arr|.keycode 
display  tmp_kcyword  to  k_listingiscr_arrl.kcyword 
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let  lc_array[curr_arr|.keys  =  tmp_keywoid 
let  k_array[curr_arTj.code  =  tmp_code 
end  if 


else 

next  field  keyword 
end  if 

after  field  keyword 

if  k_array[curT_arr].keys  is  not  null 
then 

let  tnip_keyword  =  k_array[curr_arr].keys 
select  kcode  into  tmp_code  from  keylist 
where  keylist.kword  =  tmp_keyword 
if  status=notfound 
then 

message  beep,  'This  is  not  an  acceptable  keyword" 
else 

let  k_array[curr_arr|.codc  =  tmp„code 
let  k_array[curr_arrl.keys  =  tmp_keyword 
display  tmp_code  to  kJisting[scr_arr].keycode 
display  tmp_keyword  to  k_listing[scr_arrJ.keyword 
end  if 

end  if 
end  input 

delete  from  keywords 

where  keycitnumb  =  tmp_citnum 
for  counter  »  1  to  arT_count() 

insert  into  keywords  values  (k_cit, 
cite,  0, 

k_array(counterl  .keys, 
k_array(counterl.code) 
end  for 

END  FUNCTION 

FUNCTION  d«let«_k8y(k_clt) 
define  answer  chard), 

k_cit  like  keywords.keydtnumb 

prompt  "Delete  ALL  keywords  for  this  citation  (y/n)  "  for  answer 
if  upshift(answer)  ■  "N" 
then 

clear  form 

message  "Row  NOT  deleted." 
sleep  1 
Message  "" 
return 
else 

delete  from  keywords  where  keycitnumb  ■  k_cit 
clear  form 

ntessage  "ROW  DELETED!" 
sleep  1 
Message  "" 
end  if 

END  FUNCTION 

FUNCTION  M«k«yilitt() 
define 

key_list  array(30|  of  record 

_ kcode  like  kcylist.kcodc,  _ 
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kword  like  keylist.kword 
erd  record, 

holdkcode  like  keylist.kcode, 
cont  smallint 

open  window  seekl  at  3,40 

with  form  "seekeys"  attribute  (border,  reverse) 
menu  "KEY-LIST" 

command  "Find"  HELP  302 
clear  form 

construct  queryl  on  kcode,  kword  from  k_list[ll.* 
let  selectl  *  "select  kcode,  kword  from  keylist  where  ", 
queryl  clippc  i 

prepare  select_klist  from  select! 
declare  k_curs  cursor  for  select_klist 
let  cont  *  1 

foreach  k_curs  into  key_!ist(cont|.* 
let  cont  3  cont  +  1 
if  cont  >  30 
then 

exit  foreach 
end  if 

end  foreach 
if  cont  3  1 
then 

message  "No  Keyword  found  with  these  first  letters" 
sleep  2 
exit  menu 
end  if 

call  set_count(cont  -1) 

message  "Highlight  a  keyword  abbrev  and  hit  ESC" 
display  array  key_iist  to  k_list.* 
on  key(interrupt) 
exit  display 
erd  display 
let  cont  ■  3rr_curr() 
let  holdkcode  *  key_list(contl.kcode 
exit  menu 

command  "Add"  HELP  303 


open  window  kw2  at  3J  with  20  rows,  66  columns 
attribute  (Border) 
open  form  s_key  from  "vockeys" 
display  forms  key 
call  add.klistO 
close  window  kw2 
command  "Exit"  HELP  2 
exit  menu 
end  menu 
close  window  seekl 
return  holdkcode 
END  FUNCTION 

FUNCTION  s««_keys(c_num) 

define 

c_num  like  keywords.kcycitnumb, 
c_fil  like  keywords.kcycitfile, 
citfile  like  citation.citfile 
call  keywinopenO 
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clear  form 

display  c_num  to  keycitnumb 
select  unique(keycitfile)  into  citfile 
from  keywords 
where  keycimumb  =  c_num 
display  citfile  to  keycitfile 

display  "ESC  to  continue"  at  18,20  attributo(reverse) 
declare  key_see  cursor  for 

select  keycode,  keyword  from  keywords 
where  keycitnumb  =  c_num 
let  counter  =  1 

foreach  key_see  into  k_array(counterl.* 
let  counter  *  counter  +  1 
if  counter  >  20  then  exit  foreach  end  if 
end  foreach 

call  set_count(counter  -1) 
display  array  k_array  to  k_listing.'‘ 
on  key(interrupt) 
exit  display 
end  display 
close  key_see 
END  FUNCTION 
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#tksquery.4gl 

{ 

TITLE;  tksquery.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CV'M,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Purpose:  to  provide  a  Query-by-example  mechanism  for  citation, 
authors,  keywords 
Contains  the  follo  wing  functicas: 
querybibO 
view_all() 
see_cit(c_numb) 
out_cit{c_num,pO 
top  downO 

) 

database  tkstest 
globals  "tksglob.4gl" 

######################################################### 

FUNCTION  querybibO 
call  qwinopenO 
let  int_flag  =  0 
construct  queryl  on 
#items 

dtnumb,  citfile,  citsource,  citvol,  citpage,  citdate,  citlocate, 
cittitle,  auihname, 
keyword,  keycode 
from 

citnunab,  citfile,  citsource,  citvol,  citpage,  citdate,  citlocate, 
ctl,  authname, 
keyword,  keycode 

let  select!  »  "select  unique(dtnumb),  cit/iie,  ciiscrial,  citvol,  citpage,  citdate,  cittitle,  citlocate", 
"  from  citation,  authors,  keywords  where  ", 
queryl  clipped, 

"  anddlnumb  »  aucitnumb  and  citnumb  =»  kcycitnumb  ", 

"  order  by  citfile,  dtnumb" 
prepare  select_all  from  selectl 
if  int_flag  <>0 
then  return 
end  if 

display  "  Searching  ..."  at  21,2  attributcHrevcrse) 
let  cnt »  0 

declare  q_cnt  cursor  for  selecQall 
foreach  q_cnt  into  T_citation.* 
let  cnt  ■  cnt  +1 
if  status  ■  notfcund 
then 

let  cnt  ■  0 
exit  foreach 
end  if 

end  foreach 
if  int^flag  <>0 
then  return 
end  if 

declare  q_curs  scroll  cursor  for  selcct_all 
open  q_curs 

fetch  first  q_curs  into  T  citation.* 
if  status  -  NOTFOUND 
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then 

message  "No  citation  found." 
sleep  1 
message  "" 

else 

display  "  ",  cnt,  "  citations  found."  at  21,2 
attribute(reverse) 
let  tmp_cnt  =  1 
call  view_all() 
end  if 

close  q_curs 
end  FUNCTION 

FUNCTION  vlew_all() 

call  see_cit{T_dtation.cimumb) 
let  emp_cnt  =  1 
display  ""  at  21,2 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  21,2 
attributefreverse) 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Citation  in  the  list."  HELP  170* 
display  "  Searching  ..."  at  21,2  attnbute(rovcrso) 

FETCH  NEXT  q_curs  lNTOT_citation.* 

IF  status  *  NOTFOUND  THEN 

MESSAGE  beep,"No  more  Citations  in  this  direction." 
SLEEP  1 
MESSAGE  "" 

FETCH  LAST  q_curs  INTO  T  citation.* 

END  IF 

call  see_cit(T_atation.dmumb) 
let  tmp_cnt  •  tmp_cnt  *1 
display  "  ",  tmp.cnt,  "  of  ",  cnt,  "  rows"  at  21,2 
attnbutei  reverse) 
message  "" 

COMMAND  "Previous" 

"View  the  Previous  Citation  in  the  list."  HELP  170 
display  "  Searching  ..."  at  21,2  attnbutelrcversc) 

FETCH  PREVIOUS  q_cur3  INTO  T  atation.* 

IF  sutus  ■  NOTFOUND  THEN 

MESSAGE  beep,"No  mure  Citations  in  this  direction." 
SLEEP  1 
MESSAGE  "" 

FETCH  FIRST  q_curs  INTO  T  atation.* 

END  IF 

call  see.cii(T_atation.citnumb) 
let  tmp_cnt  •  tmp_cnt  -1 
display  "  ",  tmp.cnt,  "  of  ",  cnt,  "  rows"  at  21,2 
attnbutei reverse) 

.Tiessage  "" 

COMMAND  "First" 

"View  the  first  Cii.inon  in  the  list."  HELP  170 
display  "  Sc-arching  ..."  at  21.2  attnbulet reverse') 

FETCH  FIRST  q.curs  INTOT.citatiun  * 
call  see.cittT  .citaliun  citnumb) 
let  tmp^ent  »  1 

display  "  ",  Imp  cnt.  "  .it  ",  cnt,  "  rows"  at  21,2 
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attribute(reverse) 
message  "" 

COMMAND  "Lasr 

"View  the  Last  Citation  in  the  list."  HELP  170 
display  "  Searching  ..."  at  21,2  attnbute(revcrse) 

FETCH  LAST  q_curs  INTO  T_citation.» 
call  see_cit{T_citation.citnumb) 
let  tmp_cnt  =  cnt 

display  "  ",  tmp_cnt,  "  ot  ",  cnt,  "  rows"  at  21,2 
attributei  reverse) 
message  "" 

COMMAND  "Output" 

"Output  selected  data"  HELP  1300 
call  out_alKT„dtatlon.atnumb) 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
end  FUNCTION 

FUNCTION  se«_cll(c_numtj) 

define 

ctitl  chadSO), 
ctit2,ctit3x:tit4  char(70), 
tmpname  chart  70), 
c_numb  like  citation. atnumb, 
auth_string,  key_5tring  chartSOO), 
atempl,  atemp2,  atcmp3  chart 70), 
tempi,  temp2,  temp3  chart70) 
select  •  into  T_atation.* 
from  citation 

where  dtnumb  ■  c_numb 
let  cut]  «  T_dtation.cilfitk*(l,-l()l 
let  ctit2  ■  T_cita(ion.cittttle!41,l  10| 
let  ctit3  ■  T_citation.cittifle(t  11,180) 
let  ctit4  ■  T_citation.ctttitleil81,250j 
if  T_citabon.cttsource{l,lJ  »  "J" 
then 

select  jabrv  into  tmpname  from  )ournlst 
wliere  jcode  ■  T_citaUon.citsouice 
else 

select  bname  into  tmpname  from  booklst 
where  bcode  ■  T_ citation. citsource 

end  if 

declare  au_see  cursor  for 
selcHTt  *  from  authors 
where  audtnumb  ■  c_numb 
order  by  authsig 
let  counter  ■  1 
let  auth_stnng  »  "" 
fomach  au..see  into  T_authors.* 
if  counter  ■  I 
then 

let  aulh_stnng  •  T_authors.juihnamc  clipjx.'d 
else 

if  tlength(auth_string)  lenglh(T_juihors.authname))  >  497 
then  exit  forcach 
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end  it 

let  auth_stnng  =  auth_string  clipped,",  ", 
T_authors.authiiame  clipped 

end  if 

let  counter  =  counter  +  1 

if  counter  >  10  then  exit  forcach  end  if 

end  foreach 

if  length(auth_string)  >  210 

then  let  auth_stringi2C8,2101  = 
end  if 

let  atempl  =  auth_string[l,70] 
let  atemp2  =  auth_stringI71,1401 
let  atemp3  =  auth_stTingll41,2101 
close  au_see 

declare  key_see  cursor  for 
select  *  from  keywords 
where  keycitnumb  =  c_numb 
let  counter  »  1 
let  key_stnng  =  "" 
foreach  key_see  into  T_keywords.* 
if  counter  =  1 
then 

let  key_string  =  T_keywords.kcyword  clipped 

else 

if  (length(kcy_stnng)  lcngthtT_keywords.keyword))  >  497 
then  exit  forcach 
end  if 

let  key_stnng  »  kcy_stnng  clipped,",  ", 

T_key  words.kcyword  clipped 

end  if 

let  counter  ■  counter  1 

if  counter  >  20  then  exit  forcach  end  if 

end  foreach 

if  length(key_stnng;  >  210 

then  let  key_stnngl208,21Ci  ■ 
end  if 

let  tempi  •  key_stringl  1,701 
let  temjj2  ■  key_5tnn^71,1401 
let  tcmp3  •  key_stnng(141,210| 
close  key_see 
display 
tti  terns 

T_citation.atnumb, 

T^citation.citsource, 

T_citation.citfilc, 

T, citation  citlocale, 

T_citation.atvol, 

T_citafion.atpage, 

T_cttalion,atdafe, 
ctitl,  ctif2.  ctil3,  clit4, 
tmpnamc, 
atempl,  atemp2, 
tempi,  tcmp2 
to 

citnumb,  citsource,  citlilc,citkKate,  citvol,  citpage, 
citdatc,  ctl,  ct2,  cl3,  ct4,  citname, 
authname,  aiilhn.ime2. 
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keyword,  key  word2 
end  FUNCTION 

##################«######<> 

FUNCTION  out_all(c_num) 

define 

c_num  like  citation.citnumb, 
print_cnt  smaihnt, 
fp  charOO) 
menu  "OUTPUT" 

command  "Printer"' 

"Send  data  to  line  printer"'  HELP  1301 
menu  "OUT-TO-PRINTER" 
commarul  "This-Citation" 

"Send  the  displayed  citation  to  printer"  HELP  1302 

let  fp  =  "cat  >  tmp.out" 

message  "Printing 

call  out_cit(c_num,fp) 

run  "print  tmp.out;  rm  imp  out" 

exit  menu 

command  "All-Citations" 

"Send  all  atations  from  current  query  pnnter"  HELP  1303 
let  fp  a  "cat  »  tmp.out" 
let  pnnt_cnt  *  0 

declare  outp_curs  cursor  for  selcct_a!l 
foreach  outp_curs  into  c.num 
let  pnnt_cnt  »  pnnt_cnt  +  1 
message  "Printing ...",  pnnt_cnt 
call  out_cit(c_num,fp) 
end  foreach 

run  "print  tmp.out;  rm  tmp.out" 
exit  menu 

command  "Exit"  HE.LP  2 
exit  menu 
end  menu 
exit  menu 
command  "File" 

"ServJ  data  to  file"  HELP  1304 
menu  "OUT-TO-FILE" 

commartd  "This^^itation" 

"Send  the  displayed  citation  to  a  file"  HELP  1305 
MENU  "nLE-SELECnON" 

command  "New-File"  HELP  1306 

prompt  "Send  to  what  file  >  "  for  fp 
message  "VVnting  to  file  ",  fp 
let  fp  ■  "cat  >■',  fp  clipped 
call  ouf_cii(c_num,lp) 
exit  menu 

command  "Appcnd-to-File  "  HELP  1307 
prompt  "Send  lo  what  tile  >  "  fur  fp 
message  " Writing  to  itlc  ",  tp 
let  fp  ■  "cal  >>",  fp  dippcxl 
call  out^ciKc  num.fp) 
exit  menu 

command  "Exit  "  HELP  2 
exit  menu 
end  menu 

command  "All-Ciiaiions" 
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“Send  all  citations  from  current  query  to  file"  HELP  130b 
MENU  “FlLE-SELECnON" 

command  "New-File"  HELP  1309 

prompt  "Send  to  what  file  >  "  for  fp 
let  fp  =  "cat  »",  fp  clipped 
let  nrint_crt  =  0 

declare  outf_curs  cursor  for  sclect_all 
foreach  outf_curs  into  c_num 
let  print_cnt  =  print_cnt  1 
message  "Writing  ",  print_cnt  /'  to  file  ",  fp 
call  out_cit(c_num,fp) 
end  foreach 
exit  menu 

command  "Append-to-File"  HELP  1310 
prompt  "Send  to  what  file  >  "  for  fp 
let  fp  =  "cat  »",  fp  clippcxl 
let  pnnt_cnt  =  0 

declare  outaf_curs  cursor  for  select_all 
foreach  outaf_curs  into  c_num 
let  phnt_cnt »  print_cnt  +  1 
message  "Writing  ",  print_cnt ,"  to  file  ",  fp 
call  out_C!t(c_num,fp) 
end  foreach 
exit  menu 

command  "Exit"  HELP  2 
exit  menu 
end  menu 

command  "Exit"  HELP  2 
exit  menu 
end  menu 
exit  menu 

command  "Exit"  "Exit  this  window"  HELP  2 


exit  menu 
ervd  menu 


end  FL'NCnON 

«###«##«#«««««««««»#««««#««««««««•««««#««««««•#««««««#««« 
FUNCTION  out„clt(c_num,pf) 

define 


c_num  like  atation.atnumb, 

O.citahon  record  like  citation.*, 
pf  char<30) 

declare  out_cur8  cursor  for 
select  *  from  atation 
where  citnumb  ■  c_num 
order  by  citnumb 
surt  report  cit_out  to  pipe  pf 

foreach  out_curs  into O.citation* 

output  to  report  at_out  (0_citation.*> 
end  foreach 
finish  report  cit  out 
end  FUNCTION 


REPORT  clt_out(c_cll»tlon) 

uefine 

excitation  record  like  citation.*. 
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c_authors  record  like  authors.*, 
c_keywords  record  like  keywords.*, 
tmpname  char(60), 
a_string  char(550), 
k_string  char(550), 
hold_string  char<n00), 
tot_len,  X,  y  smallint 
output 

report  to  "tks_query.out" 
left  margin  0 
top  margin  0 
bottom  margin  0 
page  length  10 

order  external  by  c_citation.atnumb 
format 

before  group  of  c_citation.citnumb 
let  hold_stnng  = 
declare  a_see  cursor  for 
select  *  from  authors 
where  audtnumb  ■  c_citation.dtnumb 
order  by  authsig 
let  counter  ■  1 
let  a_string  »  "" 
foreach  a_see  into  c_authors.* 
if  counter  «  1 
then 

let  a_string  *  c_authors.authname  clipped 

else 


if  (length(a_string)  -r  lcngth(c_authors.authnamc))  >538 
then 

let  a..stringl538,;)4C'l« 
exit  foreach 

else 


let  a_str.ng  ■  a_stnng  clipped,",  ", 
c.authors.authnamc  clipped 
end  if 

,  end  if 

let  counter  ■  counter  *  1 
if  counter  >  10  then  exit  foreach  end  if 
end  foreach 
close  a_see 

declare  k_sce  cursor  for 
select  •  from  keywords 
where  kcyatnumb  ■  c_dtation.citr.umb 
let  counter  ■  I 
let  k_5tring  ■  "" 

foreach  k_sce  Info  c_kcy  words.* 
if  counter  ■  1 
then 

let  k..string  ■  C.key words. keyword  clipped 
else 

if  (!cngth(k_stnng)  >  kr.gthlc.key  words.kcyword))  >538 
then 

let  k.»iring|538,540|  - 
exit  foreaca 


else 

let  k_slring»k, string  clipped,",  ", 


t 
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end  if 

end  if 

let  counter  =  counter  +  1 
if  counter  >  20  then  exit  forcach  end  if 
end  foreach 
close  k_see 

after  group  of  c_citation.citnumb 
if  c_citation.dtsourcell,ll  =  "J" 
then 

select  jabrv  into  tmpname  from  journlst 
where  jcode  =  c_citation.citsource 
else 

select  bname  into  tmpname  from  booklst 
where  bcode  =  c_citation.citsource 
end  if 
print 

print  "TKS  code:  ",  c_citation.citnumb 
print  "File  code:  ",  c_dtation.C)tfile  clipped,  "  in  ", 
c_dtation.dtiocate  clipped,  "  files  " 
print 

let  hold_string  »  a_string  clipped,  ":  ",  * 

c_dtation.dttitle  clipped,  ", ", 
tmpname;  clipped,  “  ", 
c„dtation.dtvoI, 
c_dtation.dtpage,",  ', 
c_dtation.dtdate 
let  tot  Jen  ■  length(hoId_string) 
if  tot_Ten  >»  80 
then  let  y  «  SO 
else  let  y  »  tot_len 
end  if 

for  X  »  1  to  tot_len  step  80 
print  hold,.stnnglx,yi 
if  tot  ,Ien  -  X  <  80 

then  let  y  »  tot_len 
else  let  y  ■  y  +  80 
end  if 
end  for 

let  k.string  ■  "Keywords:  ",  k_string  clipped 
let  tot_len  ■  length(k_slring) 
if  tof_len  >m  80 
then  let  y  ■  80 
else  let  y  ■  tot_len 
end  if 

for  X  ■  1  to  tot_len  step  80 
print  k_stnnglx,yj 
if  toi_len  •  X  <  80 

then  let  y  •  tot_lcn 
else  let  y  •  y  ♦  80 
end  if 
end  for 
end  report 

#####«#«#«#«#«««#«««««««#«««««##««#»««#«««##««####««##«»# 

FUNCTION  lop_dOwn() 

( This  section  needs  to  have  additional  options  1 
let  citn umber  •  "" 
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call  find  cit(dtnumber) 
menu  "foP.DOWN" 
command  "Citation" 

"Find  Citation  to  serve  as  top" 
let  citnumber  =  "" 
call  find_cit(citnumber) 
conunand  "Authors" 

"See  Authors  for  selected  top" 
call  find_auth(T_dtation.citnumb) 
command  "Keywords" 

"See  Keywords  lor  selected  top" 
call  find_key(T_citation.citnumb) 
connmand  "PaperOver" 

"See  Paper  Overview  for  selected  top" 
call  find_paper(T_dtation.citnumb) 
command  "Design" 

"See  Study  Designs  for  selected  top" 
call  find_dsgn(T_dtation.dtnumb) 
command  "Subjects" 

"See  Subject  Groups  for  selected  top" 
call  find_sgrp(T_citation.cimumb,0) 
comnuiul  "Regimens" 

"See  Exposure  Rx?ginr>ens  for  selected  top" 
call  find_expo(T_dtation.citnumb,0) 
command  "Links" 

"See  Expxjsure  Groups  for  selected  top" 
call  find_exgp(T_citation.cit!mmb) 
commaivd  "Findings" 

"See  Clinical  findings  for  selected  top" 
call  find_cfind(T_dtation.citnumb) 
command  "MoreData" 

"Add  more  data  to  the  selected  citation  sables" 
call  add_abs(T_citation.dtnumb) 
command  "Exit" 

"Exit  this  menu" 
exit  menu 
end  menu 
end  function 


#tksshows.4gl 


TITLE:  tksshows.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-J7-C-7114 
Contains  the  following  functions: 
show_dsgn(p_cit,  cur_pge) 
gen_dsgdsc(p_cit,  tmp_dsgn) 
show_subj(s_cit,  tmp_dsgn,  cur_p7‘- 
gen_subdsc  (s_cit,  tmp_dsgn,  tmp 
show_expo(e_dt,  tmp_dsgn,  cur_j 
gen_expdsc  (e_cit,  tmp_dsgn,  tmp_ 
show_fWlci  t(t_cit) 
show_fulldt2(in_cit) 
show_fiie<in_file) 
disp_fulldt(t_dt) 


database  tkstest 
globals  "tksglob.4gl" 

########«########«############################################ 

FUNCTION  show_dsgn(p_clt.  curjjge) 

define  hold_dsgn  char(650), 
theCnt,  X,  y  smallint, 

tmpl,tmp2,tmp3,tmp4,tmp5,tmp)6,tmp7,tmp>8,lmp9,tmpl0char<65), 
p_dt  like  paperover.papdtnumb, 
tot_pge,  cur_pge,  cur_row,  p_numdsgTi,  cc  integer 
select  CDuntf*)  into  p_numdsgn 
from  stdydsgn 
where  stydtnumb  »  p_dt 
let  tot_pgs  *  p.numdsgn/lO 
case 

when  (ca?_pge  >  tot_pge) 

error  "No  more  rows  in  this  direction" 
return  tot_pge 
exit  case 

when  (cur_pge  <  0) 

error  "No  more  rows  in  this  direction" 
rctumO 
exit  case 
end  case 

declare  dsgn  scroll  cursor  for 

select  •  from  stdydsgn  _ 

where  stydtnumb  ■  p_dt 
order  by  stydsgncur 
let  X  ■  1 
let  theCnt  •  0 
let  hold  .dsgn  ■  "  " 
open  dsgn 

for  cur_row  ■  (cur_pge*10+l)  to  (cur_pgc*10-fl0) 
if  cur_row  >  p_numdsgn 
then  exit  for 
end  if 

fetch  absolute  cur_row  dsgn  into  T_stdydsgn.* 
let  theCnt  ■  theCnt  1 


I 
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I 
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let  hold_dsgn(x,x+4l  =  T_stdydsgn.stydsgncur  using  =  " 

let  hold_dsgn=  hold_dsgn  clippjed, 

T_stdydsgn.stynumgrp  using  GRP,  ", 

T_stdydsgn.stynumexp  using  "  EXP,  ", 
T_stdyd5gn.stycntl, "  CNTL  " 
let  X  =  theCnt  *65  +  1 
end  for 

#  Create  values 

let  tmpl  =  hold_dsgn{l,65] 
let  tmp2  =*  hold_dsgnl66,130l 
let  tmp3  »  hold_dsgn{  131,195] 
let  tmp4  »  hold_dsgn(l%,260] 
let  tmpS  =  hold_dsgn{261,325] 
let  tmp6  »  hold_dsgn(326,390l 
let  tnrip7  *  hold_dsgn(391,455] 
let  tnripS  »  hold_dsgn{456,520] 
let  tinp9  *  hold_dsgnI521,585j 
let  hnplO  «  hold_dsgnI586,6501 

#  Display  values 

display  tmpl  at  11,1  attributefreverse) 
display  tmp2  at  12,1  attributefreverse) 
display  tmp3  at  13,1  attributefreverse) 
display  tmp4  at  14,1  attributefreverse) 
display  tmp5  at  15,1  attributefreverse) 
display  tmp6  at  16,1  attribute(reverse) 
display  tmp7  at  17,1  attributefreverse) 
display  tmp8  at  18,1  attributefreverse) 
display  tmp9  at  19,1  attributefreverse) 
display  tmplO  at  20,1  atthbutefreverse) 
close  dsgn 
return  cur  pge 
END  FUNCTION 

FUNCTION  g«n_d«gdsc(p_cit,  tmp.dagn) 

define 

hold_dsgn  char<65), 
p_cit  like  paperover.papdtnumb, 
hold_3tyserial  integer, 
tmp_dsgn  smallint 
declare  gen_dsgn  cursor  for 
select  *  from  stdydsgn 
where  stycitnumb  •  p_dt 
and  stydsgncur  ■  tmp.dsgn 
foreach  gen_dsgn  into  T.stdydsgn.* 

let  hold_dsgn*  T_stdydsgn  jtynumgrp  using  "<&",  "  GRP,  ", 
T.stdydsgn^tynumexp  using  "<4i",  "  EXP,  ", 
T_stdydsgn.stycntl  clipped, "  CNTL  " 
let  hold.styierial  •  T_stdydsgnjty3erlal 
end  foreach 

return  hold  dsgn,  hold  styserial 
END  FUNOION 

FUNCTION  Nhow_tubj(t_clt,  tinp_d»gn,  cur _pg«) 

define 

hold_sub]  char(650), 
tmp_dsgn  integer, 
thtCnt,  X,  y  smallint. 
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tmpl,tmp2,tmp3,tnip4,tmp5,tmp6,tinp7,tmp8,tmp9,tmpl0char(65), 
s_dt  like  subjgrp.sgcitnumb, 
tot_pge,  cur_pge,  cur_row,  p_subnum,  cc  integer 
select  counK*)  into  p_subnum  from  subjgrp 
where  sgdtnumb  =  s_dt 
and  sgdsgnnum  =  tmp_dsgn 
let  tot_pge  =  p_subnum/10 
case 

when  (cur_pge  >  tot_pge) 

error  "No  more  rows  in  this  direction" 
return  tot_pge 
exit  case 

when  (cur_pge  <  0) 

error  "No  more  rows  in  this  direction" 
return  0 
exit  case 
end  case 

declare  subi_curs  scroll  cursor  for 
seled  *  from  subjgrp 
where  sgdtnumb  »  s_dt 
and  sgdsgnnum  » tmp_dsgn 
order  by  sglink 
let  X  a  1 
let  theCnt »  0 
let  }u)ld_subj  =  "  " 
open  subj_cur3 

for  cur_row  ■  (cur_pge*iO+l)  to  (cur_pge*10+10) 
if  cur_row  >  p_subnum. 
then  exit  for 
end  if 

fetch  absolute  cur_row  subj„curs  into  T_subjgrp  • 
let  theCnt » theCnt  +  1 

let  hold_subj(x,X'Hf|  <*  T_subjgrp.sglink  using  "<&",  "  «  " 
let  hold_subj«  hold_,subj  dipped, 

r_subjgrp.sgnumb  using  "  ", 

T_subjgrp.sgspede3  clipped, ", ", 

"Age:  ",  T_subjgrp.sgage  dipped,  "  ", 

T_subjgrp.sgageunit  dipped, ", ", 

"Wt:  ",  T_subigTp.5gwt  using  "««<&.«",  "  ", 

T_subjgrp.sgwtunit  dipped, ", " 

"Sex:  ",  T_subgrp  jgsex  clipped,  ",  ", 

T_subjgrp.sgtotexpo  using  "  EXP" 
let  X  »  theCnt  *65+1 
end  for 

#Create  values 

let  tmpl  ■  hold_subj(l,65J 
let  tTnp2  ■  hold_subi(66,130I 
let  tmp3  ■  hold_subj(131,195) 
let  tmp4  m  hold_subj(  196,260) 
let  tmp5  ■  hold_5ub)(261,325J 
let  tmp6  «  hold_subp26,390j 
let  tmp7  ■  hold_sub){391,455j 
let  tmp8  ■  hold_5ubj{ 456,520) 
let  tmp9  ■  hold_5ub)l521,585) 
let  tmplO  ■  hold  _subj( 586,650) 

#disptay  values 

display  tmpl  at  11,1  attributefreverse) _ 
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display  tmp2  at  12,1  attribute{reverse) 
display  tmp3  at  13,1  attribute(reverse) 
display  tmp4  at  14,1  attribute{reverse) 
display  tmp5  at  15,1  attribute(reverse) 
display  tmp6  at  16,1  attribute{reverse) 
display  tmpy’  at  17,1  attribute(reverse) 
display  tmp8  at  18,1  attribute<reverse) 
display  tmp9  at  19,1  attribute(reverse) 
display  tmplO  at  20,1  attributelreverse) 
close  subj_curs 
remm  ctir_pge 
END  FUNCTION 

########«##################################################### 

FUNCTION  gen_subdsc  (s_cit,  tmp.dsgn,  tmp_subj) 

define 

tmp_dsgn  integer, 
hold_sgserial  integer, 
hold_subj  char(65), 
s_dt  like  subjgrp-sgcitnumb, 
tmp_subj  smallint 
declare  gen_curs  cursor  for 
select  *  from  subjgrp 
when?  sgdtnumb  «  s_dt 

and  sgdsgnnum  « tmp_dsgn 
and  sglink  « tmp_subj 
foreach  gen_curs  into  T_subjgrp.* 

let  hold_subj»  T_subjgrp.sgnumb  using  “«<&“,  "  ", 

T_subjgrp.sgspedes  clipped, ", ", 

"Age:  ",  T.subjgrp.sgage  dipped,  "  ", 

T_subjgrp.sgageunit  clipf>ed,  ", ", 

"Wt:  ",  T.subjgrpjgwt  using  "««<&.«",  "  ", 

T_subjgrp.sgwtunit  dipped, ", ", 

"Sex:  ",  T.subjgrpjgsex  dipped,  ",  ", 

T_subjgrp.sgtotexpo  using  "<&",  "  EXP" 
let  hold.sgserial  ■  T_subjgrp.sgserial 
end  foreach 

return  hold  subj,  hold  sgserial 
END  FUNCTION 

FUNCTION  thow_«xpo(«_ctt,  tmp.dsgn,  cur j>g«t) 

define 

hold_expo  char(650), 
tnrip_dsgn  integer, 
th^nt,  X,  y  smallint, 

tmpl,tmp2,tmp3,tmp4,tmp5,tmp6,tmp7,tmp8,tmp9,tmpl0char(65), 
e_dt  like  exporegm^dtnumb, 
tot_pge,  cur_pge,  cur_row,  p_expnum,  cc  integer 
select  counK*)  into  p_expnum  from  exporegm 
where  exdtnumb  ■  e_dt 
and  exdsgimum  ■  tmp.dsgn 
let  lot_pge  ■  p_expnum/10 
case 

when  {cur_pge  >  tot_pge) 

error  "No  more  rows  in  this  direction" 
return  tot_pge 
exit  case 

when  (cur_pge  <  0) 
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error  "ffo  more  rows  in  this  direction" 
return  0 
exit  case 
end  case 

declare  expo_curs  scroll  cursor  for 
select  •  from  exporegm 
where  excitnumb  =  e_dt 
and  exdsgnnum  =  tmp_dsgn 
order  by  exlink 
let  X  =  1 
let  theCnt  =  0 
let  hold_expo  =  "  " 
open  expo_cur3 

for  cur_row  =  (cur_pge*10+l)  to  (cur_pge*10+10) 
if  cur_row  >  p_expnum 
then  exit  for 
end  if 

fetch  absolute  cur_row  expo  curs  into  T_exporegm  * 
let  theCnt  =  LheCnt  +  1 

let  hold_expo[x,x+4l  =  T_expoifegm.exlink  using  "  a  " 
let  hold_expoa  hold,  expo  clipped, 

T_exporegm.exagent(l,201  clippjed, ", ", 
T_exporegm.exdose  clipped, "  ", 
T_exporegin.exdoseunit  clipped, "  ", 
T_exporegm.exroute, ",  given  ", 
T_exporegm.exinterval  clipped,  "  x  ", 

T  .exporegm.exduration(l,81  clipped 
let  X  a  theCnt  *65  +  1 
end  for 
#create  values 

let  tmpl  »  ho!d_expo(l/»51 
let  tmpZ  a  ho!d_expof66,130l  • 

let  tmp3  «  hoid_expoi  131,1951 
let  lm{j4  a  hold_rxpr(196,260! 
let  tmj?5  »  hold_expo(261,325i 
let  tmp6  ■  hold_expoi326,390) 
let  tinp7  ■  hoId_expo(391,455) 
let  tmp8  •  hold_expo(456,5201 
let  tmp9  ■  ho!d_expo{5214851 
let  tmplO  «  hold_fexpo{586,6501 
#display  values 

^splay  tmpl  at  11,1  ahributefreverse) 
display  tmp2  at  12,1  attributefreverse) 
display  tmp3  at  13,1  attributefreverse) 
display  tmp4  at  14,1  attributefreverse) 
display  tmp5  at  15,1  attributefreverse) 
display  tmp6  at  16,1  attributefreverse) 
display  tmp7  at  17,1  attributefreverse) 
display  tmp8  at  18,1  attributefreverse) 
display  tmp9  at  19,1  attributefreverse) 
display  tmplO  at  20,1  attnbulefreverse) 
close  expo_curs 
return  cur  pge 
END  FUNCnON 

FUNCTION  gan_«xpd»c  (•_clt,  tmp_d8fln,  tmp_«xpo) 

define 
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hold_expo  char(65), 
tmp_dsgn  integer, 
hold_exserial  integer, 
e_cit  like  exp>oregm.excitnumb, 
tmp_expo  sinalhnt 
declare  exp_curs  cursor  for 
select  *  from  exporegnt 
where  excitnumb  =  e_cit 

and  exdsgnnum  =  tmp_dsgn 
and  exlink  =»  tmp_expo 
foreach  exp_curs  into  T_exporegm.* 

let  hold_expo=>  T_exporegmexagentI  1,201  clipped,  ",  ", 
T_exporegm.exdose  dipped,  "  ", 
T_exporegm.exdoseunit  clipped,  ",  ", 
T_exporegm.exroute,  "/given  ", 
T_exporegm.exinlervcl  clipped,  "  x  ", 
T_exporegm.exduration(l,8l  clippcxl 
let  hold_exserial »  T_exporcgm.exsenal 
end  foreach 

return  hold_expo,  hold_exscrial 
END  FUNCTION 


FUNCTION  show_fullclt(t_clt) 

define 

t_cit  like  citation.citnumb, 
t_file  like  dtation.dtfile, 
tmp_string  char(75), 
len,  y,  x  smallint 
call  alrtl978open() 

display  "Preparing  Citation  Information  ..."  at  10, 10 
attributefreverse) 
call  disp  fulldt(t_dt) 
menu  "CURRENT  PAPER" 
command  "Exit"  HELP  1408 
exit  menu 
end  menu 
call  alrtl978close() 
end  function 

,  #############################<»#########»###################### 
FUNCTION  8howJullclt2(ln_cil) 

define 

in_cit,  t_dt  like  citation.citnumb 
call  alrt]97topen() 

display  "Prepaiir.g  Citation  Information  ..."  at  4,12 
attributeireverse) 
declare  fuil_dt2  scroll  cursor  for 
select  citnumb 
from  citation 
where  dtnumb  like  in_dt 
order  by  citnumb 
open  full_dt2 

letch  first  full  dt2  into  t  cit 
if  status  -  NOTFOUN  J 
THEN 

MESSAGE  "No  papers  found." 

SLEEP  1 
MESSAGE  "" 
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else 

call  diip_tulkitu_c)ir) 
end  It' 

menu  "CURRENT-CITATIJNS' 
command  Next" 

"See  next  otation"  HELP  14i>^ 
fetch  next  tull_cit2  into  t_C!t 
if  status  »  NCTFOUND 
THEN 

MESSAGE  "No  more  pape^rs  tound  in  this  direciion," 

SLEEP  1 

MESSAGE 

tetch  last  fui!_cit2  into  t_cit 
call  disp_rui!citu.  i'.' 

else 

call  d!sp_fullc:ui,nt,' 
end  if 

command  "Previous" 

"See  Previous  atation"  E^LLP  1-fOl 
fetch  Previous  ful!_>.;t2  into  :  ^'t 
if  status  »  NCTFOUN  D 
THEN 

MESSAGE  'No  nKiri  pvipers  icund  in  this  direction  ' 

SLEEP  1 

MESSAGE  "" 

fetch  nrst  tuil  citi  into  t_ 

call  d:sp_tullciut.citl 

else 

call  disp_fuikmt..ai) 

CIAu  If 

comma  ad  "Select" 

"Seket  the  correcl  citation  t  >r  use  ji  is."  HELP 
let  ciDiurr^cT  ■  i_cit 
select  *  into  T, citation.* 
trort  citation 
where  citnumb  ■  t  ot 
call  disiitki  ) 
call  update. cicvt_cit) 
let  sw  ■  0 

command  "L  se-Curn-nt" 

"Use  the  newl  v  entered  citatum  "  HELP  I-*o3 
exit  menu 

command  'Exii'"  HEl  P  2 
exit  menu 
end  menu 
call  alrtIV78close<) 
end  function 


FUNCTIOW 

detine 

l_cit !  ke  aiaiion  c'numb. 
t  .joum  like  x’umlst  labrv, 
t  vol  like  i.>taiion  citiol, 
t.loc  like  Citation  iilliCJle. 
t  pa^e  like  olatKin  citpai;e, 
t  date  like  ciialion  .ildale. 
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t_ti.it.'  .  ution  cutitlc, 
in_tile,  t,  n.e  likv  vitation.cittilo 
declare  tulI_tUe2  ,1  cur^r  tor 
■telect  citnumt  'em  citation 
where  cittile  like  in_tile 
order  by  cimumb 
c  sli  .ilrtl978open() 

J.^play  'T’repanng  Citation  Intunr.ution  ...  "  at  4,12 
ittnbutctreverse) 

: Mc  u  tuii_iile2 
'1.  it,h  iirst  tijil_file2  into  t_cil 
It  status  =  NOTFOL'NO 
THEN 

MESSAGE  "No  papers  found  " 

SLEEP  1 
.MESSAGE  "" 

RET  L  ies 

else 

call  disp_tullcit(t_at) 
enu  if 

menu  "CL'RRENT-cjTATlONS" 
command  "Next" 

"See  next  atatton"  HELP  1401 
fetch  rtext  tull_fiie2  into  t_cit 
,/  xtatus  »  NOTFOL'ND 
THEN 

MESSAGE  "No  more  papers  touitd  in  this  diri'ction. " 

SLEEP  1 

MESSAGE  "" 

fetch  ast  tull_tile2  into  t_t.it 

call  disp_fullcil(t.cit) 

else 

call  disp.fulicittt.at) 
end  It 

command  "Previous" 

■"See  Prevwus  citation"  HELP  1405 
fetch  previous  tuil_iile2  into  t_cit 
if  status  «  NOTFOL'ND 
THEN 

MESSAGE  "No  mt>re  papers  found  in  this  direction." 
SLEEP  1 
MESSAGE  "" 

fetch  first  tull_iile2  into  t  ■  >' 
call  disp  lullcitit  t". I 

else 

caP  disp  tullcittl.otl 
end  if 

t.ommand  "SeUxt " 

"Selc'ct  the  correci  citation  tor  use  as  is  '  HELP  I4tl6 
let  citnumbcr  ■  t_i.ii 
select  •  into  T  citalKin  * 
fiunt  citation 
where  citnumb  •  '  cii 
call  distitlet) 
call  update  cii(t_cit) 
let  sw  ■  U 

command  "Lv-Gurrenr" 
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"Use  the  newly  entered  citation."  HELP  1407 
exit  menu 

comnvand  "Exit"  HELP  2 
exit  menu 
end  menu 
call  alrtl978close() 
end  function 

Off  #«««»;>«#»»#»«#«#»  #«##«####»######«## 

FUNCTION  dfsp_tullCit{t_Clt) 

define 

file_5tring  char(SO), 
t._file  like  dtation.atfile, 
t_loc  like  citation.citlocate, 
t_cit  like  alation.citnumb, 
tmp_ilnng  chanSOO), 
y  smallint 

select  citfile,  citiocate  into  Lfile,  t_loc 
from  atation 
where  otnumb  » t_cit 
let  file_stnng  - 

"C#:",  t_at  clipped,  3  spaces, 

"Fi:",  t_file  dipped,  3  spaces, 

"Lc;",  t_loc  clipped 
call  biblio_gen{t_at) 
call  keywd_list(t_cu) 
dispUy  ""  at  10,  fo 
let  y  ■  4 

display  file_stnng  at  4  J 
for  X  ■  1  to  lengthtbib.entry)  step  75 
let  y  ■  y  ♦  ! 

let  tmp.stnng  »  bib.entrylx,  x«-73| 
display  tmp  .stnng  at  y.2 
end  for 
let  y  ■  y  1 

for  X  »  1  to  length(keywdlsi)  step  75 
let  y  ■  y  ♦  1 

let  tmp_stnng*»  keywdlst(x,  x>751 
display  tmp_stnng  at  y2 
end  for 

END  FUNCTION' 
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#tkspapovr.4gi 

{Comments; 

Title:  tkspapovr.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  llliois,  CV’M,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7U4 
Purpose:  to  manage  the  paper  overview  data 
Contains  the  following  functions: 
add_paper(pap_cimumb) 
find_paper<t_dt) 
view_papert) 
disp_paper(pap_citnumb) 
up^te_paper(pap_>:imumb,  tmp_papser!al) 
alrt_dsgn_del(pap_citnumb) 
delete_paper(pap_citnumb,  tmp_papserial) 
blowpaper(pap_atnumb,tmp  papsenal) 

) 


database  tkstest 
GLOBALS  "tk£glob.4gr 

FUNCTION  a<ld _paper(pap_citnumb) 

define 

tmp_aim  chart20), 
nutndsgn,  x  smallint, 
pge  integer, 

pap_atnumb  like  paperovcr.papatnumb, 
aim  chard) 
call  papwinopenO 
message  "" 
clear  form 
for  X  ■  10  to  20 

display  at  x,  1 
end  for 
let  pw  ■  0 

options  input  wrap, 

help  file  "tkshelp.msg", 
help  key  FiU 

!  input  by  name 

T_paperovcr.papatnumb, 

T  _papcrover  papatfile, 

T_paperover.  papsia  tcpur, 

T _paperover  papimppur, 
aim, 

T_paperover  papaim, 

T_paperovcr  papnumdsgn 
on  key< interrupt) 
let  pw  ■  1 
exit  input 

before  field  papcitnu.nb 

message  'Hit  RETURjN  to  add  data.” 
if  pap.citnumb  is  not  null 
tfien 

let  T_paperover  ^upcitnumb  •  pap_c:tnumb 
display  by  name  T.pa pc  rover  papcitnumb 
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select  citfile  into  citiileno 
from  citation 

where  citnumb  =  pdp_citnumb 
let  T_paperovcr.papcittile  =  cittileno 
display  by  name  T_paper9vcr  papcitfile 
next  field  papstatcpur 
end  if 

after  field  papcitnumb 

if  T_paperover.papc)tnumb  is  null 
then 

error  "Must  have  CITATION  number" 
next  field  papcitnumb 
else 

call  exi5t_atnumb(T_papcrover.papcitnumb)  returning  x 
if  X  =  0 
then 

error  "No  CITATION  data  has  been  entered  for  this  number" 
next  field  papcitnumb 
else 

select  counK*)  into  x  from  papcrover 

where  papcitnumb  »  'f_paperover. papcitnumb 
if  X  >  0  then 

error  becp/TAPER  OVERVIEW  data  already  exists." 
next  field  papcitnumb 
end  if 

end  if 

end  if 

select  citfile  into  dtfilcno  from  atation 

where  atnumb  ■  T_papcrovcr. papcitnumb 
let  T_paperover.papotfile  ■  citfileno 
display  by  name  T_paperovcr.papcitnurnb 
display  by  name  T_paperovor.papciifile 

message  "Hit  ESCAPE  when  enter  data  into  database  when  finished." 
next  field  papstatcpur 
befoi?  field  aim 

if  (T.fcperover.papaim)  is  not  null  and  aim  <>  "0" 
then 

let  aim  »  T_paperover.papaimfl| 
message  beep,  'Enter  0  to  see  all  Aim  Choices" 
attnb'  (reverse) 
else 

let  aim  -  "0" 
end  if 

call  aim_choice<aim) 
after  field  aim 
if  atm  -  "(r 
then 

next  field  aim 
else 

call  aim  choicefaim) 
if  chosen  •  0 

then  next  field  aim 
end  if 

message  "Hit  ESC  to  add  row" 
end  if 

after  field  papaim 

call  aim  .trans<T,paperovcr  papaim)  returning  tmp.aim 
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if  chosen  =  0 

then  next  field  papaim 
end  if 

display  tmp_aim  to  class 
call  clear_choice(8,16^C) 
before  field  papnumdsgn 

call  show_dsgn(T_paperover.papcitnumb,  0)  returning  pge 
on  key  (control-P) 

if  infield(egdsgn)  then 

call  show_dsgn(T_paperover.papcitnumb,  pge-l)  returning  pge 
end  if 

on  key  (CONTROL-N) 
if  infield(egdsgn)  then 

call  show_dsgn(T_paperovcr.papcitnumb,  pge+1)  returning  pge 
end  if 

after  field  papnumdsgn 

let  numdsgn  =  T_paperover.papnumdsgn 
if  T_paperover.papaim(ll  »  "1" 
then 

if  (numdsgn  <>  0  or  cnt  <>  0)  then 

Error  "Cannot  have  designs  for  information  only  papers' 
next  field  aim 
end  if 

else 

if  numdsgn  «  0  then 

Error  beep,  "Design  Required  for  this  paper  aim" 
next  field  aim 
end  if 

end  if 

On  key  (control-w) 
case 

when  infteld(papstatcpur) 
call  showhelpH4(X)) 
when  infield(papimppur) 
call  showheip<401 ) 
when  infield(papaim) 
call  $howheip(402) 
when  infield(papnumdsgn) 
call  showheip(403) 
end  case 
after  input 

let  T.paperovCTr'ipscrial  *0  • 

end  input 

options  help  key  control-w 
if  pw  a  1  then  return  end  if 
iruert  into  paperover  valucstT.paperover.*) 
message  "Row  Added" 
sleep  1 
message  "" 

select  counR*)  into  x  from  stdydsgn 

where  stycitnumb  •  T  papcrovcr.papcitnumb 
if  status  -  NOTFOUND 
then  let  X  ■  0 
end  if 


call  papwincloseO 
if  T_paperoveT. papnumdsgn  >  x 

then  call  add_dsgn(pap_citnumb,  T_papcrovcr.papnumdsgn,  x) 


end  if 

END  FUNCTION 

«»########################## 

FUNCTION  findj3ap«r(t_cit) 

define 

t_cit  like  paperover.papcitnumb 
call  papwinopenO 
case 

when  t_cit  is  null 
clear  form 

message  "Enter  search  criteria  and  hit  ESC  to  search" 
let  int_flag=0 

construct  Dy  name  queryl  on  pap»erover.* 
if  int_flag  <>  0  then  return  end  if 
let  selectl  »  "select  *  from  paperovcr  where  ", 
queryl  clipped,  "  order  by  papcitnumb" 
let  select2  »  "select  countC)  from  papcrover  where  ", 
queryl  clipped 
exit  case 
otherwise 

let  select  1»" select  *  from  paperover  where  papcitnumb  *  ", 
quote,  t_dt  clipped,  quote,  "  order  by  papatnumb" 
let  select2:»" select  countC)  from  paperover  where  papcitnumb 
quote,  t_cit  dipped,  quote 
exit  case 
end  case 

prepare  select_paper  from  selectl 
prepare  cnt_paper  from  select2 
declare  cnt_curs  cursor  for  cnt.paper 
foreach  cnt_curs  into  cnt 
end  foreach 

declare  p_curs  scroll  cursor  for  select.papcr 

open  p.cuis 

ciill  view_paper() 

close  p_curs 

call  papwindoseO 

END  FUNCTION 

FUNCTION  view j)ap«rO 

fetch  first  p_cur$  into  T_paperover.* 
if  status”-  NOTPOUND 
then 

MESSAGE  "No  papers  found." 

SLEEP  1 
MESSAGE  "" 

else 

let  tmp_cnt  « 1 

call  disp_papcr<T_p>apcrovcr  papcitnumb) 
display  ""  at  21,2 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows  found."  at  21,2 
end  if 

MENU  "BROWSE- 

COMMAND  "Next"  "View  the  next  Paper  in  the  list."  HELP  170 
FETCH  NEXT  p_curs  INTO  T.papcrovcr.* 
let  tmp  cnt  •  tmp  cnt  ♦! 

IF  status  -  NOTPOUND  THEN 

MESSAGE  "No  more  Papers  in  this  direction." 
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SLEEP  1 

let  tmp_cnt  =  cnt 
MESSAGE 

FETCH  LAST  p_curs  INTO  T_paperover.* 

END  IF 

display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  “  rows"  at  21,2 
attribute(  reverse) 

call  disp_paper(T_paperover.papdtnumb) 

COMMANCT'Trevious"  "View  the  Previous  Paper  in  the  list."  HELP  170 
FETCH  PREVIOUS  p_curs  INTO  T_papcrover.‘ 
let  tmp  cnt  *  tmn_cnt  - 1 
IF  status  =  NOTFOL^ND  THEN 

MESSAGE  "No  more  Papiers  in  this  direction." 

SLEEP  1 
MESSAGE  "" 
let  tmp_cnt »  1 

FETCH  FIRST  p_curs  INTO  T  paperover.* 

END  IF 

display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  21,2 
attributef  reverse) 

call  disp_papcr(T_paperover.papcimumb) 

COMMAND  "First"  "View  the  first  Paper  in  the  list."  HELP  170 
FETCH  FIRST  p_curs  INTO  T_paperover.* 
let  tmp^ent  ■  1 
display"-"  at  21,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  21,2 
a  tthbutef  reverse) 

call  disp..paper(T_papcrover.papomumb) 

COMMANTD  "Last"  "View  the  Last  Papc’r  in  the  list  "  HELP  17C 
message  "Searching  for  last  record...  " 

FETCH  LAST  p_curs  INTO  T_paperover.* 
let  tmp^ent  ■  cnt 
message  "" 
display  ""  at  2U 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  21,2 
attnbutef  reverse) 

call  disp_paper<T_paperpver.papc.tnumb) 

COMMAND  "Update"  "Update  data  in  this  paper"  HELP  171 
call  update _papcr(T_papcrover.papcitnumb, 

T.paperoveT.papsciial) 

COMMAl^  "Delete"  "Delete  this  entry  from  database"  HELP  404 
call  delete_papcr(T_paperovcr.papcitnumb, 

T_paperovcr.papscnal) 

COMMAND  "Query-Again"  "Enter  new  search  enteria" 
close  p.curs 
let  dtnumber  ■  "" 
call  find_paper(cttnumber) 
exit  menu 

COMMAND  "Cxir  "Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

FUNCTION  dl«p j>«p*r(p«p_cltriumb) 

define 
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trrp_aim  char(20), 

pap_dtnumb  like  piaperover.papcitnumb, 

X  smallint 
for  X  =  10  to  20 

display  ""  at  x,  1 
end  for 

display  by  rume  T_paperover.* 

call  aini_trans(T_paperover.papaim)  returning  tmp_aim 
display  tmp_aim  to  class 

call  show_dsgn(T_paperover.papcitnumb,  0)  returning  x 
END  FUNCTION 

#^########«##«##«#############«##«######«####««##»«############### 

FUNCTION  updat0j>aper(pap_citnunit),  tmp .papserlal) 

define 

tinp_aim  char(20), 

pap_atnumb,  tmp_citno  like  piaperover.papcitnumb, 
pge,  tmp_papserial  integer, 
aim  cnar(l), 

numdsgn,  hold_dsgn,  x,  pw  smallint 
message  "" 

let  tmp_citno  ■*  pap_citnumb 
let  pw  »  0 

message  "Hit  ESC  to  upxlate  row." 
input  by  name 

T_p>ap>ero  ver.  pa  pxn  tnu  mb, 

T_pa  piero  ver .  j>a  pxri  tf:  le, 

T,p>ap>erover.papstatcpur, 

T_pap>erover.papimppur, 

aim, 

T ^  tiero  ver.  pw  pa  I  m, 

T_p)apsrover.papnumdsgn 
Without  defaults 
on  keyiinterrupt) 
let  pw  «  1 
exit  input 


after  field  piapxritnumb 

message  "Hit  E*CAPE  to  upxJate  row" 
if  T_|?ap>erover  pjapjcitnumb  is  null 
then  error  "Must  have  atnumber!" 
end  if 

if  p>ap_cimumb  <>  T _pap>crover  papiatnumb 

then  call  exi5t_cilnumb(T_p)ap>erover.p)apx:itnumb)  returning  x 
if  X  -  0 
then 

error  beep,  "No  CITATION  entered  with  this  NUMBER  " 
next  field  piapotnumb 

else 

select  counM*)  into  x  from  papierover 

where  piapcitnumb  •  T_papx.’rover  papxntnumb 
if  X  >  0  then 

error  "PAPER  data  already  entered  for  this  paper." 
sleep  2 

next  field  pMpcitnumb 
end  if 

end  if 
end  if 
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before  field  aim 

if  (T_paperover.papaim)  is  not  null  and  aim  <>  "0" 
then 

let  aim  =  T_paperover.papaimlll 
message  beep,  "Enter  0  to  see  all  Aim  Choices" 
attribute  (reverse) 
else 

let  aim  =  "0" 
end  if 

call  aim_choice(aim) 
after  field  aim 
if  aim  =  "0" 
then 

next  field  aim 
else 

call  aim_choice(aim) 
if  chosen  »  0 

then  next  field  ami 
end  if 

message  "Hit  ESC  to  update  row" 
end  if 

after  field  piapaim 

call  aim_trans(T_paperover.papaim)  returning  tmp_aim 
if  chosen  »  0 

then  next  field  papaim 
ei\d  if 

display  tmp_aim  to  class 
call  clear_choice(8, 16,50) 
before  field  papnumdsgn 

call  show_dsgn(T_paperover.papcitnumb,  0)  returning  pge 
on  key  (control-P) 

if  infield(egdsgn)  then 

call  show_d5gn(T_paporover.papcttnumb,  pge-l)  returning  pge 
etui  if 

on  key  (CONTROL-N) 
if  infield(egdsgn)  then 

call  show_dsgn(T_paperov<.T.papcitnumb,  pge+1)  returning  pge 
end  if 

after  field  papnumdsgn 

select  counrt*)  into  hold_dsgn 
from  stdydsgn 

where  styatnumb  "  T_papcrovcr.papcitnumb 
if  status  ■  NOTFOUND  then 
let  hold_dsgn  ■  0 
end  if 

let  numdsgn  ■  T_papcrovcr.papnumdsgn 
if  T_pjpcroveT.papaimll|  •  "1" 
then 

if  (numdsgn  <>  0  or  hold.dsgn  <>  0) 
then 

Error  "Cannot  have  designs  for  information  only  papers" 
next  field  atm 
end  if 

else 

Case 

when  numdsgn  •  0 

Error  beep.  "Design  Recruited  for  this  paper  aim" 

ioT 


I 


bxin  Knowledge  System  Source  Code  ’  '  - 


next  field  aim 
exit  case 

when  hold_dsgn  <  T_paperovcr.papnumdsgn 

call  add_dsgn(T_papcrover.papcitnumb,  T_paperover.papnumdsgn,  0) 
call  add_exgp{T_paperovcr.papcimumb) 
exit  case 

when  hold_dsgn  >  T_papcrover.papnumdsgn 
call  alrt_dsgn_del(T_paperover.papcitnumb) 
exit  case 
end  case 

end  if 
end  input 

if  pw  »  1  then  return  end  if 
update  paperover  set  paperover.*  =T_paperover.* 
where  papserial  »  tmp_papsenal 
if  tmp_citno  <>  T_paperover.papcitnunib 
then 

UPDATE  stdydsgn 

set  stycitnurnb  =  T_papcrovcr.papcimumb, 
stycitfile  =>  T_paperover.papotfile 
where  stycitnurnb  »  tmp_citno 
UPDATE  subjgrp 

set  sgcitnumb  ■  T_paperover.papcitnumb 
whore  sgc.tnumb  »  tmp_citno 
UPDATE  exporegm 

set  excitnumb  *  T_^  aperover.papcilnumb 
where  excitnumb  *  tmp_citno 
UPDATE  expogrp 

set  egdtnumb  «  T_paperover.papcitnumb 
where  egcitnumb  » tmp_citno 
UPDATE  clinfind 

set  cfcihiumb  »  T.paperovcr.papcitnumb 
where  cfcitnunvb  *  nnp_atru 
UPDATE  tkscomment 

set  cocitnumb  «  T_paperover  papcitnumb, 
cocitfile  •  T_pape'Over.papcitfilc 
where  cocitnumb  ■  tmp_citno 

end  if 

message  "Row  updated!" 
sleep  1 

END  rUNCTION 

FUNCTION  alrt_d»gn_d*l(pap_citnumb) 

define 

pap.dtnumb  like  paperovcr.papotnumb, 
hold_dsgncur  integer, 
hold_dsc,r.serial  integer 
call  alrt265open() 

menu  "There  are  more  designs  than  indicated" 

COMMAND  "Cancel"  "Return  and  correct  number  of  designs"  HELP  405 
exit  menu 

COMMAND  "Delete- Design"  "Search  for  and  delete  designs*  HELP  406 
Prompt  "Which  of  displayed  designs  should  be  deleted?  >  " 
for  hold_dsgncur  HELP  41 1 
select  siyserial  into  hold.dsgnsenal  from  stdydsgn 
whm  slydsgncur  ■  hold.dsgncur 
and  stycitnum  ■  pap,atnumb 
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call  de)ete_dv;sign(pap_citnumb,hold_dsgnserial) 
end  menu 
call  alrt265clo5e<) 

END  FUNCTION 

########################################»;»,######################### 
FUNCTION  deletej3aper(pap_citnumb,  tmp _papserlal) 
define 

pap_citnumb  like  paperover.papcitnumb, 
tmp_papsenal  integer 

prompt  "Do  you  want  to  delete  this  paper  overview?  (y/n)" 
for  answer 

IF  upshift(answer)  =  "N" 
then 

MESSAGE  "Row  NOT  deleted." 


sleep  1 

MESSAGE  "" 

RETURN 

else 

select  stydtnumb  from  stdydsgn 
where  stycitnumb  =  pap_citnumb 
union 

select  exdtnumb  from  expwregm 
where  exdtnumb  «  pap_citnumb 
union 

select  sgdtnumb  from  subjgrp 
where  sgdtnumb  ■  pap_citnumb 
union 

select  egcitnumb  from  expogrp 
where  egdtnumb  »  pap_citnumb 
union 

select  cfdtnumb  from  clinfind 
where  c/citnumb  »  pap_citnumb 
if  status  ■  NCTFOUND 
then 

DELETE  FROM  papcrover 

where  papscrial  ■  tmp_papscrial 
MESSAGE  "Row  deleted." 

SLEEP  I 
MESSAGE  "" 
else 

call  blowpapcr(pap_dtnumb,tmp_papscnal) 
end  if 

er.d  if 

FJMD  FUTMCTION 

###«####!»#####«)»«##«(»««##»##«#««###»#####»##*#####•«««< 
FUNCTION  blowpap«r(p8p_cltnumb,lmp_papMrlal) 
define 

pap_dtnumb  like  paperever  papdlnumb, 
tmp_papsenal  integer, 
hold.dsgn  smallinC, 
hold_msg  chartkO) 
call  alrt270open0 

message  beep,  beep,  beep, "There  arc  other  tables  linked  lothis  record" 
sleep  2 

menu "DELETE  PAPER" 

COMMAND  "Exit"  help: 
exit  menu 
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COMMAND  "All-Links' 


"Delete  all  linked  paper-related  tables.CAN  BE  DANGEROUS"  HELP  408 
menu  "DO  YOU  REALLY  WANT  TO  DELETE  ALL  CONNECTED  TABLES  ?  " 
COMMAND  "No"  HELP  409 
exit  menu 

COMMAND  "Yes"  HELP  410 
delete  from  paperover 

where  papscrial  =  tmp_papserial 
select  count!*)  into  hold_dsgn  from  stdydsgn 
where  stycimumb  =  pap_atnumb 
display  ""  at  2^ 
display  "  ",  hold_dsgn  using 
"  designs  deleted"  at  2,2 

delete  from  stdydsgn  where  stydtnumb  =  p,3p_citnumb 
select  count!*)  into  hold_dsgn  fromexporegm 
where  excitnumb  =  pap_citnumb 
display  ""  at  2,2 
display  "  ",  ho!d_dsgn  using 

"  exposure  regimens  deleted"  at  2,2 
delete  from  exporegm 

where  excitnumb  »  pap_citnumb 
select  count!*)  mto  hold_dsgn  from  subjgrp 
where  sgcitnumb  »  pap_citnumb 
display  ""  at  22 

display  "  ",  hold_dsgn  using  "«4i", 

"  subject  groups  deleted"  at  2,2 
delete  from  subjgrp 

where  sgatnumb  ■  pap_citnumb 
select  counti*)  into  hoid^dsgn  from  expogrp 
w.here  egamurnb  «  pap_citnumb 
display  ""  at  2,2 
display  "  "  hold_dsgn  using 

"  exposure  groups  deleted"  at  2,2 
delete  from  f  pigrp 

where  egatnumb  ■  pap„citnumb 
select  count!*)  into  hold_dsgn  from  clinfind 
where  cfcitnur'<b  *  pap_citnumb 
dispUy  ""  at  2,2  ' 

display  "  ",  fiold.dsgn  using  "<<&", 

"  clinica:  findings  deleted"  at  22 
delete  from  clinfind 

where  cfcitnumb  ■  pap^cilnumb 
exit  menu 
end  menu 
exit  menu 
end  menu 
call  alrtd  OcloseO 
END  FUNCTION 
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#tksdsgn.4gl 

( 

Title:  tksdsgn.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-71 14 
Contains  the  following  functions: 

add_dsgn(tmp_stycitnumb,  tot_numdsgn,  dsgnnum_cnt) 

find_dsgn(t_cit) 

view_design() 

disp_dsgn(tmp„stycitnumb,  tmp_styscnal) 
update  _dsgn(tmp_stycitnumb,  tmp_styserial) 
delete_design(tmp_stycitnumb,  tmp_styserial) 
blowdesign(tmp_stycitnumb,  tmp_styserial) 
renum_dsgn(tmp_stycitnumb,  del_dsgn,tot_dsgn) 
add_details(t_cit,  t_type,  t_9ubj,  Lexpo,  t_dsgn) 
chk_cntl_chnge{) 
alrt_boxl() 
alrt  box2() 

) 

database  tkstest 
globals  "tksglob.4gr' 

############# 

FUNCTION  add_dsgn(t_stycltnumb,  tot.numdsgn,  dsgnnum.cnt) 

#  citation  number,  total  number  of  designs,  existing  number  of  designs 
define 

stdy_trans  char(20), 
vivvit  chardO), 

study,  cntJcmp»*cntltyp,  cntlmeth  char(20), 

compmeth,  cntlassgn  char(20), 

tot_numdsgn,  hold_dsgn  like  stdydsgn-stydsgrilot, 

numsubj  like  stdydsgn.stynumgrp, 

numexpo  like  stdydsgn.stynumexp, 

tmp_aim  like  paperover.papaina, 

tmp_2ch  charts, 

t_stycitnumb,  tmp_cil  like  stdydsgn.stycitnum'j, 
dsgn_cnt,  dsgnnum_cnt  smallint, 
tmp_styserial  integer, 
y,  z  smallint 

#  initial  setup 

call  dsgnwincipenO 
clear  form 
let  dw»  0 

select  papaim  into  tmp_aim  from  paperover 
where  papeitnumb  ■  t_stycitnumb 
for  ent  «  (dsgnnum_cnt+l)  to  tot_numdsgn 
initialize  dign_array(cnt).*  to  null 
end  for 

call  set_count(tot_numdsgn) 
options  help  file  "tkshelp.msg" 
select  citfile  into  citfileno 
from  citation 

where  citnumb  ■  t_stycitnumb 
input  array  dsgn_array  from  dsgn_rcc.* 
on  key(interrupt) 
let  dw  » 1 
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exit  input 

ON  Key(control-w) 
case 

when  infield(stydtnumb) 
call  showhclp(500) 
when  infield(stycitfile) 
call  showhelp(517) 
when  infield(dsgncur) 
call  showhelp(518) 
when  infield(dsgntot) 
call  showhelpv519) 
when  infield(styvivit) 
call  showhelp(501) 
when  infield(stycntl) 
call  shuwhelp(503) 
when  intield(styaitlcmp) 
call  showhelp(504) 
when  infieldistycmpnicth) 
call  showhelp(505) 
when  infield(stycntlmeth) 
call  showhelp(506} 
when  infield(stycntltyp) 
call  showhelp(507) 
when  infield(stycntascgn) 
call  showheip(508) 
when  intield(nurnsubj) 
call  showhelf)(509) 
when  infield(st)'numexp) 
call  showhelp(510) 
end  case 


before  field  stycitnuinb 

let  curr_arr  »  arr_curr<)  +  dsgnnum_cnt 

let  dsgn_cnt »  arT_count()  +  dsgnnum_cnt 

let  dsgn_array(cuiT_arr).styserial  =  0 

let  dsgn_array(curr_arr|.stydsgncur  »  curr_arr 

let  hold_dsgn  »  curr_arr 

let  dsgn_array{curr_arrl,stydsgntot »  dsgn_cnt 

#initial  displays 

message  "Hit  RETURN  to  begin  to  add  data." 

display  ""  to  study 

display  ""  to  vivvit 

display  ""  to  cntlcmp 

display  ""  to  compmeth 

display  ""  to  cntlmeth 

display  ""  to  cntltyp 

display  ""  to  cntlassgn 

display  by  name  dsgn_array(curr_arr|.stydsgncur 
display  by  name  dsgn_diTay(curr_arr|.stydsgntot 
if  t_stycimumb  is  not  null 
then 

let  dsgn_array(curr_arr|.btycitnumb  ■  t_st)'citnumb 
let  dsgn_array(curr_arr).stycitfile  ■  citfileno 
display  by  name  dsgn_atTay(curr_arri.stycitnumb 
display  by  name  dsgn_array(curr_aiTj.stycitfile 
next  field  stytype _ 
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end  if 

after  field  stycitnumb 

if  dsgn_array(curr_arr].stycitnumb  is  null 
then 

error  "Must  have  Citation  Number" 
next  field  stycitnumb 

else 

let  tmp_cit  =  dsgn_array{curr_arrj.stycitnumb 
let  X  =  exist_citnumb(  tmp_cit) 
if  X  =  0  then 

error  "No  CITATION  DATA  entered  with  this  number.' 
next  field  stycitnumb 
end  if 

end  if 

let  dsgn_array(curr_arrl. stycitnumb  =  t_stycitnumb 
let  dsgn_array[curr_arr|.stycitfile  =  citfileno 
display  by  name  dsgn_array[curr_aiTi.stycitnumb 
display  by  name  dsgn_array(curr_arr].stycitfilc 
next  field  stytype 
before  field  stytype 

call  stype_choice{tmp_aim) 
after  field  stytype 

let  tmp_2ch  ■  dsgn_aiTay(curr_arr|.stytyi3e 
call  stype_trans(tmp_2ch)  returning  study 
display  by  name  study 
before  field  styvivit 
call  vivit_choice{) 
after  field  styvivit 

let  tmp_2ch  ■  dsgn_array(curr_arr).styvivit 
call  vivit_trans(tmp_2ch)  returning  vivvit 
if  chosen  «  0 

then  next  field  styvivit 
else  display  by  name  vivvit 
end  if 

before  field  stycntl 

if  dsgn_array(curr_arrl. stytype  ■  "F' 

then  let  dsgn_array(curr_arr|.stycntl «  "N" 
next  field  stynumgrp 
end  if 

after  field  stycntl 

if  dsgn_array(curr_arr|.stycntl »  "N" 
then 

let  dsgn_array(curr_arr|.stycntlcmp  <■  "" 
let  dsgn_array(curr_arrj.stycmpmeth  ■  "" 
let  dsgn_array(curr_arr|.stycntlmeth  ■ 
let  dsgn_array{cuiT_arr).stycntltyp  -  "" 
let  dsgn_array(curr_arri.stycntassgn  - 
display  by  name  dsgn_3tTay(curr_arr|.stycntlcmp 
display  by  name  dsgn_array|curr_anr).stycmpmeth 
display  by  name  dsgn_aiTay|curr_arri.stycntlmcth 
display  by  name  isgn_arraylcurr_arr|.stycntltyp 
display  by  name  dsgn_aiTay|curr_arr).stycntas5gn 
next  field  stynumgrp 
end  if 

before  field  stycntlcmp 

if  dsgn_array(curr_arr|. stycntl  ■  "N" 
then  next  field  stycntl 
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else  call  cnticmp_choice() 
end  if 

after  field  stycntlcmp 

let  tmp_2ch  =  dsgn_array(cuiT_arrl.stycntlcmp 
call  cntlcmp_trans(tmp_2ch)  returning  cntlcnip 
if  chosen  =  0 

then  next  field  stycntlcmp 
else  display  by  name  cntlcmp 
end  if 

before  field  stycmpmeth 

let  tmp_2ch  *  dsgn_array(curr_arrl. stycntlcmp 
call  cmpmeth_choice(tmp_2ch) 
after  field  stycmpmeth 

let  tmp_2ch  *  dsgn_array[curr_arrl.stycmpmeth 
call  cmpmeth_trans(tmp_2ch)  returning  compmeth 
if  chosen  =>  0 

then  next  field  stycmpmeth 
else  display  by  nanrte  compmeth 
end  if 

before  field  stycntlmeth 

if  dsgn_aiTay(curr_arrl.stycntl »  "N" 
then  next  field  stycntl 
else  call  cntlnr»eth_choice() 
end  if 

after  field  stycntlmeth 

let  tmp_2ch  »  dsgn_array(curr_arr). stycntlmeth 
call  cntlmeth_trans<tmp_2ch)  returning  cntlmeth 
if  chosen  ■  0 

then  next  field  stycntlmeth 
else  display  by  nanv  cntlmeth 
end  if 

before  field  stycntltyp 

let  tmp_2ch  »  dsgn.arraylcurr_arr|. stycntlmeth 
call  cntltyp_choic^tmp_2ch) 
after  field  stycntltyp 

let  tmp_2ch  «  dsgn_array(curT_arr).5tycntltyp 
call  cntltyp_tran.5(tmp_2ch)  returning  cntltyp 
if  chosen  0 

then  next  field  stycntltyp 
else  display  by  name  cntltyp 
end  if 

before  field  stycntassgn 
call  cntlassgn_choice() 
after  field  stycntassgn 

let  tmp_2ch  ■  dsgn_arraylcuiT_arr|.stycnUssgn 
call  cntla5sgn_trans(tmp_2ch)  returning  cntlassgn 
if  chosen  ■  0 

then  next  field  stycntassgn 
else  display  by  name  cntlassgn 
end  if 

after  field  stynumgrp 

let  numsubl  •  dsgn_array|curr_arr|. stynumgrp 
if  numsubj  >  99 
then 

error  beep,  "The  maximum  number  of  Subject  Croups  is  99!" 
next  field  stynumgrp 
end  if 


Toxin  Knowledge  System  Source  Code 


call  add_details(t_stycitnumb,sludy,numsubj,0,hold_dsgn) 
select  countt*)  into  cnt  from  subjgrp 

where  sgdtnumb  =  dsgn_array[curr_arrl,stycitnumb 
and  sgdsgnnum  =  dsgn_array[curr_arr].£tydsgncur 
display  cnt  using  "  Groups  Entered  "  at  19,40 

attnbute(reverse) 
after  field  stynumexp 

let  numexpo  =  dsgn_array[curr_arrl.stynumexp 
if  numexpo  >  99 
then 

error  beep,  "The  maximum  number  of  Exposure  Regimens  is  99!" 
next  field  stynumexp 
end  if 

call  add_details(  t_stycitnumb,study,0,numexpo,hold_dsgn) 
select  countf*)  into  cnt  from  exporegm 

where  excimumb  =■  dsgri_an'ay(curr_aiTj.stycitnumb 
and  exdsgnnum  =  dsgn_array[cuiT_arrl.stydsgncur 
display  cnt  using  "  Regimens  Entered  "  at  20,40 

attribute(reverse) 
if  dsgn_cnt » tot_numdsgn 
then  exit  input 
end  if 
end  input 

if  dw  =  1  then  return  end  if 
for  cnt  ■  (dsgnnum_cnt+l)  to  dsgn_cnt 
insert  into  stdydsgn  valuest 
dsgn_arTay{cntl.stycitnumb, 
dsgn_aiTay[cnt|.stycitfile, 
dsgn_array(cntl  .styserial, 
dsgn_array(cntl.styd3gncur, 
dsgn_cnt, 

dsgn_array(cnt|.stytype, 

dsgn_array(cnt|.styvivit, 

dJgr_array(cnt|.stycntl, 

dsgn_aiTay(cnt|.stycntlcmp, 

dsgn_array(cntl.stycmpmcth, 

dsgn_array(cntl.stycntimeth, 

dsgn_aiTay(cnt).stycntltyp, 

dsgn_aiTay  ( cn  t) .  stycn  tassgn, 

dsgn_array(cntl.stynumgrp, 

dsgn_array(cntl. stynumexp) 

#converts  temporary  dsgn  number  to  serial  number  in  subj  and  expo 
select  styserial  into  tmp_styserial 
from  stdydsgn 

where  stycitnumb  ■  dsgn_aiTay(cnt|.stydtnumb 
and  stydsgTvcur*  dsgn_array{cnt|.stydsgncur 
update  exporegm 

set  exdsgnnum  « tmp_styserial 
where  excimumb  ■  dsgn_an'ay{cntl.stycitnumb 
and  exdsgnnum  ■  dsgn_array(cnt|.stydsgncur 
update  subjgrp 

set  sgdsgnnum  ■  tmp_styscrial 
where  sgdtnumb  ■  dsgn_array(cntl.stycitnumb 
and  sgdsgnnum  ■  dsgn_arTay(cnt|.stydsgncur 
end  for 

call  swincloseO 
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call  expwincloseO 
call  dsgnvvincloseO 
END  FUNCTION 

#######################«###########»####«###################«####### 
FUNCTION  find_dsgn(t_cit) 

define  t_cit  like  stdydsgn.stycitnumb 

call  dsgnwinopenO 

case 

when  t_cit  is  null 
clear  form 

message  "Enter  search  criteria  and  hit  ESC  to  begin  search" 
let  int_flag=0 

construct  by  name  queryl  on  stdydsgn  * 
if  int_flag  <>  0  then  return  end  if 
let  select!  »  "select  •  from  stdydsgn  where  ", 

queryl  clipped,  "  order  by  stycitnumb,  slydsgncur" 
let  select2  *  "select  count{*>  from  stdydsgn  where  ", 
queryl  clipped 
exit  case 
otherwise 

let  selectl  ■  "select  *  from,  stdydsgn  where  ", 

"stycitnumb  =  ",  quote,  t_cit,  quote, 

"  order  by  stycitnumb,  stydsgncur" 
let  select2  »  "select  counti*)  from  stdydsgn  where  ", 

"stycimumb  ■  ",  quote,  t_cit,  quote 
exit  case 
end  case 

prepare  select_design  from  selectl 
prepare  cnt_desig;n  from  select2 
display  "  Searching  ..."  at  21,2  attribute(reverse) 
declare  cnt_<rurs  cursor  for  ait_design 
foreach  cnLcurs  into  ent 
end  foreach 

declare  d_curs  scroll  cursor  for  select_design 

open  d_curs 

cil  view_design() 

close  d_curs 

END  FUNCTION 

FUNCTION  vl*w_d«8lgn() 

fetch  first  d_curs  into  T  stdydsgn.* 
if  status  -  NOTFOUND 
then 

MESSAGE  "No  designs  found  ",  beep 
SLEEP  1 
MESSAGE  "" 
display  ""  at  21,2 

else 

let  tmp_cnt  ■  1 
display  ""  at  21,2 

call  di5p_dsgniT_stdydsgn.stycitnumb,T_stdydsgn.styscrial) 
display  "  ",  tmp^ent,  "  of  ",  ent,  "  rows  found."  at  21,2 
end  if 

MENU  "BROWSE" 

COMMAND  "Nexr 

"View  the  next  Design  in  the  list."  HELP  170 

_ FETCH  NEXT  d_cun  INTO  T,sldydsgn.* _ 
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let  tmp_ciit  =  tmp_cnt  +1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Designs  in  this  direction." 

SLEEP  1 

let  tmp  ent  =  ent 
MESSAGE  "" 

FETCH  LAST  d_curs  INTO  T_stdydsgn.* 

^DIF 

display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of  ",  ent,  "  rows"  at  21,2 
attnbutelreverse) 

call  disp_dsgn(T_stdydsgn.stycitnuinb,T_stdydsgn.styserial) 
COMMAND  "Previous" 

"View  the  Previous  Design  in  the  list."  HELP  170 
FETCH  PREVIOUS  d_curs  INTO  T.stdydsgn.* 
let  tmp  ent  =  tmp_cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Designs  in  this  direction." 

SLEEP  1 
MESSAGE  "" 
let  tmp  ent  »  1 

FETCH'hRST  d_curs  INTO  T.stdydsgn.* 

END  IF 

display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of ",  ent,  "  rows"  at  21,2 
attributefreverse) 

call  disp  dsgn(T_stdydsgn.stycitnumb,T_stdydsgn.styserial) 
command' "First" 

"View  the  first  Design  in  the  list."  HELP  170 
FETCH  FIRST  d.curs  INTO  T.stdydsgn.* 
let  tmp_cnt »  1 
display  ""at  21,2 

display  "  ",tmp_cnt,  "  of  ",  ent,  "  rows"  at  21,2 
attnbuteireverse) 

call  disp_dsgn(T_stdydsgn.stycitnumb,T_stdydsgn.styserial) 
COMMAND""Usr 

"View  the  Last  Design  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  d_curs  INTO  T_sldydsgn.* 
let  tmp_cnt «  ent 
message  "" 
dispUy  ""  at  21,2 

display  "  ",tmp_cnt,  "  cf ",  ent,  "  rows"  at  21,2 
attnbute< reverse) 

call  disp_dsgn(T_sldydsgn.stycitnumb,T_sldydsgn.slyserial) 
COMMAND  "Update" 

"Update  the  Current  Design  in  the  list."  HELP  171 
call  updat»_d5gn(T_stdydsgn.stycitnurnb,T_5ldydsgn.5tyserial) 
call  disp_dsgntT_stdvdsgn.stycitnumb,T_stdydsgn.styserial) 
COMMAND~"[5clete" 

"Delete  this  entry  from  database"  HELP  511 

call  delete_design(T_stdyd5gn.stycitnumb,T_5tdydsgn.5tyscrial) 

cal!  disp  dsgn(T_stdyd5gn.styciinumb,T.  stdydsgn.styscrial) 

COMMAND  "Query-Again" 

"Enter  new  search  criteria"  HELP  512 
close  d_curs 
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let  citnumber  =  "" 
call  find_dsgn(citnumber) 
exit  menu 
COMMAND  “Exit" 

"Leave  this  menu"  HELP  2 
close  d_curs 
EXIT  MENU 
END  MENU 
END  FUNCTION 

FUNCTION  dlsp_dsgn(tmp_stycitnumb,  tmp_styserial) 

define  stdy_traas  char(20), 
viwit  chartlO), 

study,  citlcmp,  cntltyp,  cntlmeth,  compmeth,  cntlassgn  char(20), 
tmp_stycitnumb  like  stdydsgn.stycitnumb, 
tmp_numdsgn  like  stdydsgn.stydsgntot, 
tmp_styserial  integer, 
tmp_grp,tmp_exp  smallint 
display  by  name  T_stdydsgn.* 
if  T_stdydsgn.sty type  is  not  null 

then  call  stype_transtT_stdydsgn.stytype)  returning  study 
else  let  study  »  "" 
end  if 

display  by  nanve  study 
if  T_stdydsgn.styvivit  is  not  null 

then  call  vivit_trans(T_stdydsgn.styvivit)  returning  vivvit 
else  let  vivvit »  "" 
end  if 

display  by  name  vivvit 
if  T_stdydsgn.stycnticmp  is  not  null 

then  call  crtlcmp..transf  r_:;tdydsgn.stycntlcmp)  returning  cnticrrip 
else  let  cntlcmp  «  "" 
end  if  , 

display  by  name  cntlcmp 
if  T_stdydsgn.stycmpmeth  is  not  null 

then  call  cinpmeth_trans(T_stdydsgn.stycinpmcth)  returning  compmeth 
else  let  compmeth  ■  "" 
end  if 

display  by  name  compmeth 
if  T_stdydsgn.stycntimeth  is  not  null 

then  call  cntlmeth_trans(T_stdydsgn.stycntimeth)  returning  cntlmeth 
else  let  cntlmeth  -  "" 
end  if 

display  by  name  cntlmeth 
if  T_stdydsgn.sfycntltyp  is  not  null 

then  call  cntltyp_trans<T_stdydsgn.stycntltyp)  returning  cntltyp 
else  let  cntltyp  ■  "" 
end  if 

display  by  name  cntltyp 
if  T_stdydsgn.stycntassgn  is  not  null 

then  call  cntlassgn_trans(T_stdydsgn.stycntas5gn)  returning  cntlassgn 
else  let  cntlassgn  ■  "" 
end  if 

display  by  name  cntlassgn 
select  counrt*)  into  tmp_grp 
from  subjgrp 

where  sgdtnumb  •  tmp  stycitnumb 
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and  sgdsgnnum  =  tmp_styseria  1 
display  tmp_grp  using  "  Groups  Entered  "  at  19,40 

attribute!  reverse) 
select  count!*)  into  tmp  .exp 
from  exporegm 

where  excitnumb  =  tmp_stycitnumb 
and  exdsgnnum  =  tmp_styserial 
display  tmp_exp  using  "«k",  "  Regimens  Entered  "  at  20,40 
attribute!  reverse) 

END  FUNCTION 

FUNCTION  update_dsgn(tmp_siycltnumb,  tmp_sly serial) 

define  stdy_trans  char!20), 
viwit  char!  10), 

study,  cntlcmp,  cntltyp,  cntlmcth,  compmeth,  cntlassgn  char!2C), 
tmp_stycitnumb  like  stdydsgn.stycitnumb, 
tmp_numdsgn,  numdsgn  like  stdydsgn.stydsgntot, 
numsubj  like  stdydsgn.stynumgrp, 
numexpo  like  stdydsgn.stynumexp, 
tmp_aim  like  paperover.papaim, 
tmp_styserial  integer, 
sg_cnt,  ex_cnt,  y,  2  smallint 
let  dw«  0 

let  tmp_numdsgn  »  T_stdydsgn.stydsgncur 
select  papaim  into  tmp_aim  from  paperovcr 
where  papcitnumb  ■  T_stdydsgn.sty,.itnumb 
options  input  wrap, 

help  file  "tkshelp.msg" 

input  T_stdydsgn  *  without  defaults  from  dsgn_rcc.* 
on  key!interrupt) 
let  dw  ■  1 
exit  input 

ON  Key(control-w) 
case 

when  infieldtstycitnumb) 
call  showhelp!500) 
when  infield!stycitfile) 
call  showhelp!517) 
when  in/ieid(dsgncur) 
call  showhelp!51d) 
when  inficld(dsgntot) 
call  showhelp!519) 
when  infield!styvivit) 
call  showhclp!501)  ' 
when  infield!stycntl) 
call  showhelp!503) 
when  infieldtstycnticmp) 
call  sliowhclp!504) 
when  jnficld(stycmpmclh) 
call  showhclp!505) 
when  inficld(stycnilmcth) 
call  showhclp!506) 
when  inficldlslycntityp) 
call  4howhelp!507) 
when  infieldfstycnlassgn) 
cal!  showhclp!508) 

_ when  infield(numsub)) 
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call  showhelp(509) 
when  infield(stynumexp) 
call  showhelp(5l0) 
end  case 

before  field  sty'dtnumb 

message  "Hit  ESC  to  update  row" 
after  field  stycitnumb 

if  T_stdydsgn.stycitnumb  is  null 
then 

error  "You  must  have  a  CITATION  number" 
next  field  stycitnumb 
end  if 

if  T_stdydsgn.stycitnumb  <>  tmp_stycitnumb 
then 

cal!  exist_citnumb<T_stdydsgn.stycitnumb )  returning  x 

if  X  aO 

then 

error  "CITATION  data  not  entered  for  this  number" 
next  field  stycitnumb 
else 

select  countt*)  into  x 
from  stdydsgn 

where  stycitnumb  *  T_stdydsgn.stycitnumb 
if  X  >  0 
then 

error  "DESIGN  data  already  entered  for  this  number" 
next  field  stycitnumb 
end  if 

end  if 

end  if 

next  field  stytype 
after  field  stydsgncur 

if  T_stdydsgn.styd3gncur  <>  lmp_nurridsgn 
then 

select  count!*)  into  x  from  stdydsgn 

where  stydsgncur  «  T_stdydsgn.stydsgncur 
and  stycitnumb  »  T_stdydsgn.stycitnumb 
if  X  >  0  then 

error  Data  already  entered  for  that  Design  Number" 
next  field  stydsgncur 
end  if 

end  if 

before  field  stytype 

call  stype_choice<tmp_aim) 
after  field  stytype 

call  5type_trans(T_5fdydsgn. stytype)  returning  study 
display  by  name  study 
before  field  styvivil 
call  vivit_choice<) 
after  field  styvivit 

call  vivit_trans<T_ stdydsgn. styvivit)  returning  vivvit 
if  chosen  -  0 

then  next  field  styvivit 
else  display  by  name  vivvit 
end  if 

after  field  styenti 
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if  T_stdydsgn.stycntl  =  "N" 
then 

let  T_stdydsgn.stycntlcmp  =  "" 
let  T_stdydsgn.stycnipmeth  =  "" 
let  T_stdydsgn.stycntlmcth  =  "" 
let  T_stdydsgn.stycntltyp  =  "" 
let  T_stdydsgn.stycntassgn  =  "" 
display  by  name  T_stdydsgn.stycntlcmp 
display  by  name  T_stdydsgn.stycmpmeth 
display  by  name  T_stdydsgn.stycntlmeth 
display  by  name  T_stdydsgn.stycntltyp 
display  by  nanrie  T_stdydsgn.stycntassgn 
next  field  stynumgrp 
end  if 

before  field  stycntlcmp 

if  T_stdydsgn.stycntl  3  "N" 
then  next  field  styaitl 
else  call  cntlcmp_choice() 
end  if 

after  field  stycntlcmp 

call  cntlcmp_trans(T_stdydsgn. stycntlcmp)  returning  cntlcmp 
if  chosen  *  0 

then  next  field  stycntlcmp 
else  display  by  name  cntlcmp 
end  if 

before  field  stycmpmeth 

call  cmpmeth_choico(T_stdydsgn.stycnflcmp) 

after  field  stycmpmeth 

call  cmpmeth_trans(T_stdydsgn. stycmpmeth)  returning  compmcth 
if  chosen  *  0 

then  next  field  stycmpmeth 
else  display  by  name  compmcth 
end  if 

before  field  srycntlmeth 

if  T_stdydsgn.stycntl  ■  "N" 
then  next  field  stycntl 
else  call  cntlmeth_clioicc() 
end  if 

after  field  stycntlmeth 

call  cntlmeth_trans(T_sldydsgn,stycntlmeth) 
returning  cntimeth 
if  chosen  ■  0 

then  next  field  stycntlmeth 
else  display  by  name  cntimeth 
end  if 

before  field  styentityp 

call  cntltyp.choice(T_stdydsgn.5tycntlmeth) 

after  field  styentityp 

call  cntltyp_trans<T_stdydsgn.stycntItyp) 
returning  cntltyp 
if  chosen  •  0 

then  next  field  styentityp 
else  display  by  name  entityp 
end  if 

before  field  stycntassgn 
call  cntlassgn_choicc<) 

after  field  stycntassgn _ 
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call  cntlassgn_trans{T_stdydsgn.stycntassgn) 
returning  cntlassgn 
if  chosen  =  0 

then  next  field  stycntassgn 
else  display  by  name  cntlassgn 
end  if 

before  field  stynumgrp 

let  numsubj  =  T_stdydsgn.  stynumgrp 
select  count!*)  into  x 
from  subjgrp 

where  sgatnumb  =  T_stdydsgn.stycitnumb 
and  sgdsgnnum  =  T_stdydsgn.stydsgncur 
after  field  stynumgrp 

if  T_stdydsgn.stynumgrp  >  99 

then  error  beep,  "The  maximum  number  of  Subject  Groups  is  99!" 
next  field  stynumgrp 
end  if 
case 

when  X  »  T_stdydsgn.slynuiTigrp 
next  field  stynumexp 
exit  case 

when  X  <  T_stdydsgn.stynumgrp 

call  add_details(T_stdydsgn.stycitnumb, 

T_.'idydsgn.stytype, 

T  stdydsgn.stynumgro, 

0," 

T_stdydsgn.sty  serial) 
select  count!*)  into  sg_cnt 
from  subjgrp 

where  sgdtnumb  ■  T_stdydsgn.stycitnumb 
and  sgdsgnnum  »  T_stdyd5gr.sty5enal 
let  T_stdydsgn.stynu!ngrp  »  sg..cnf 

display  sg_cnt  using  "  Croups  Entered  "  at  19,40  attributc!reverse) 

#  needs  flag  to  force  jump  to  exposure  groups 
exit  case 

when  numsubj  <  T_stdydsgn.st)'numgrp 
call  alrt_boxl!) 
i'*  upshift!ai\swer) «  "Y" 
then 

call  add_detai  ls!T_stdydsgn.slycitnumb, 

T_stdydsgn.stytype, 

T  stdydsgn.stynumgrp, 

0, 

T_stdydsgn.5tyscrial) 
select  count!*)  into  sg_int 
from  subjgrp 

where  sgeitnumb  »  T_stdydsgn.stycilnumb 
and  sgdsgnnum  ■  T_stdydsgn.sty5crial 
let  T_stdydsgn  stynumgrp  •  sg_cnt 
disp'ay  sg_(.nt  using 

"  Croups  Entered  "  at  19,40 
atfnbutetrcverse) 

#  needs  flag  to  force  jump  to  exposure  groups 
else  next  field  stynumgrp 
end  if 
exit  case 

_ when  X  >  T.stdydsgn.stynumgrp _ 
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call  alrt_box2() 
if  upshift(ans;ver)  =  "Y" 

then  call  find_sgq3(T_stciydsgn.stycitnumb, 
T_stdydsgn.styserial) 
select  countt*)  into  sg_cnt 
from  subjgrp 

where  sgcitnumb  =  T_stdydsgn.stycitnumb 
and  sgdsgnnum  =  T_stdydsgn.styserial 
let  T_stdydsgn.stynumgrp  =  sg_cnt 
display  sg_cnt  using  • 

"  Groups  Entered  "  at  19,40 
attribute(reverse) 
else  next  field  stynumgrp 
end  if 
exit  case 
end  case 

before  field  stynumexp 

let  numexpo  =  T_stdydsgn. stynumexp 
select  countt*)  into  x 
from  exporegm 

where  excimumb  »  T_stdydsgn.stycitnumb 
and  exdsgnnum  =  T_stdydsgn.styserial 
after  field  stynumexp 

if  T_stdyd3gn.stynumexp  >  99 
then 

error  beep,  "The  maximum  number  of  ExpKisure  Regimens  is  99!" 
next  field  stynumexp 
end  if 
case 

when  X  *  T_stdydsgn.stynijmexp 
next  field  stynumexp 
exit  case 

when  X  <  T_stdydsgn.stynumexp 

call  add_details(T_stdydsgn.stycitnumb, 

T_stdydsgn.sty  tyjje, 

0, 

T_stdydsgn.stynumexp, 

T_stdydsgn.sty  serial) 
select  count(*)  into  ex_cnt 
from  exporegm 

where  excitnumb  =  T_stdydsgn.stycitnumb 
and  exdsgnnum  *  T_stdydsgn.styserial 
let  T_stdydsgn.stynumexp  »  ex_cnt 
display  ex_cnt  using 

"  Regimens  Entered  "  at  20,40 
attribute(reverse) 

#  needs  flag  to  force  jump  to  exposure  groups 
exit  case 

when  numexpo  <  T_stdydsgn.stynumexp 
call  alrt_texl() 
if  upshift(answer) »  "Y" 
then 

call  add_details(T_stdydsgn.stycitnumb, 
T_stdydsgn.stytype, 

0, 

T_stdydsgn.stynumexp, 

_ _ T_stdydsgn.sty  serial) _ 
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select  countC*)  into  ex_cnt 
from  exporegm 

where  excitnumb  =  T_stdyclsgn.stycitnumb 
and  exdsgnnum  =  T_stdydsgn.styscrial 
let  T_stdydsgn.stynumexp  =  ex_cnt 
display  ex_cnt  using 

"  Regimens  Entered  "  at  20,40 
attribute(reverse) 

#  needs  flag  to  force  jump  to  exposure  groups 


next  field  stynumexp 
ei:d  if 
exit  case 

when  X  >T_stdydsgn.stynumexp 
call  alrt_box2() 
if  upshift(answer)  =  "Y" 
then 

call  find_expo(T_stdydsgn.stycitnumb, 
T_stdydsgn.styserial) 
select  count(*)  into  ex_cnt 
from  exporegm 

where  excitnumb  =  T_stdydsgn.stycitnumb 
and  exdsgnnum  =  T_stdydsgn.styserial 
let  T_stdydsgn.stynumexp  =  ex_cnt 
display  ex_cnt  using 

"  Regimens  Entered  "  at  20,40 
attributefreverse) 

else 

next  field  stynumexp 
end  if 
exit  case 
end  case 
end  input 
if  dw  »  1 

then  return 
end  if 

update  stdydsgn 
set  stdydsgn.*  ■  T_stdydsgn.* 
where  styserial  ■  tmp  styserial 

( 

jump  to  exposure  groups  after  change  in  number  of  subjects  / 
exposures  is  needed  here 
) 


message  "  Row  upxlated.  "  attribute(reverse) 

END  FUNCTION 

FUNCTION  delete_deslgn(tmp_stycttnunib,  tmp_styserlal) 
define  tmp_stycitnumb  like  stdydsgn.stycitnumb, 
tmp_styserial  integer, 
tmp_dsgn,  tmp_totdsgn  smallint 
call  alrt265open() 

prompt  "Do  you  want  to  delete  this  design  overview?  (y/n)  >  " 
for  char  answer 
IF  upshjft(answer)  ■  "N" 
then 

MESSAGE  "Row  NOT  deleted." 
sleep  1 


n 


il8 


MESSAGE 

RETURN 
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else 


select  exdtnumb  from  exporegm 

where  excitnumb  =  tmp_stycitr.umb 
and  exdsgnnum  =  tmp_styserial 
union 

select  sgcitnumb  from  subjgrp 

where  sgcitnumb  =  tmp_stycitnumb 
and  sgdsgnnum  =  tmp  styserial 
union 

select  egcitnumb  from  expogrp 

where  egcitnumb  =  tmp_stycitnumb 
and  egdsgn  =  tmp_styserial 
union 

select  cfcitnumb  from  clinfind 

where  cfcimumb  =  tmp_stycitnumb 
and  cfeglink  =  any 
(select  egsenal  from  expogrp 
where  egdsgn  =  tmp_styserial) 
if  status  =  NCDTFOUND 
then 


select  count(*)  into  tmp_totdsgn 
from  stdydsgn 

where  stycimurnb  =»  tmp  stycitnumb 
select  stydsgncur  into  tmp_dsgn 
from  stdydsgn 

where  styserial  =  tmp_styserial 
DELETE  FROM  stdydsgn 

where  styserial  a  tmp_styseriai 
if  tmp.dsgn  <  tmp^totds^  then 

c^J  anum_dsgn(tmp_stycitnumb,  tmp.dsgn,  tmpjotdsgn) 


select  count(*)  into  tmp.totdsgn 
from  stdydsgn 

where  stycitnumb  » tmp.stycitnumb 
update  stdydsgn 

set  stydsgntot » tmp.totdsgn 
where  stycitnumb  ■  tmp.stycitnumb 
update  paperover 


set  papnumdsgn  ■  tmp.totdsgn 
>  papcitnumb  ■  tmp.slydtnumb 

MESSAGE  "Row  deleted." 


SLEEP  1 

message  "" 


else 


end  if  ^  tmp.styserial) 

end  if 

call  alrt265close() 

END  FUNCTION 

define  tmp.stycitnumb  like  sldydsgn.stycitnumb 
tmp.styserial  integer, 
tmpjotdsgn,  tmp.dsgn,  x  sinallint, 
hold.msg  char(80) 
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call  alrt270open() 
message  beep,  beep,  beep, 

"There  are  other  tables  J  to  this  record" 
sleep  2 

menu  "D2I.  ETE_DESIGN ' 

CO;  iA  ' AND  "Exit"  HELP  2 
exit  menu 

COMMAND  "All-Links" 

"Delete  all  linked  design-related  tables.  CALJ  BE  DANGEROUS"  HELP  514 
menu  "Are  you  really  sure  you  want  to  delete  all  these  ?" 

COMMAND  "NO"  HELP  515 
exit  menu 

COMMAND  "YES"  HELP  516 

select  uniquelstydsgntot)  into  tmpjotdsgn 

from  stdydsgn  where  stycimumb  =  tmp_stycitnumb 
select  stydsgncur  into  tmp_dsgn 
from  stdydsgn 

where  styserial  =  tmp_styserial 
DELETE  FROM  stdydsgn 

where  styserial  =  tmp_styserial 
if  tmp_dsgn  <  tmp_totdsgn  then 

call  renum_dsgn(tmp_stycitnumb,  tmp_dsgn,  tmp_totdsgn) 
end  if 

select  count(*)  into  tmp_totdsgn 
from  stdydsgn 

where  stycimumb  =  tmp_stycitnumb 
update  stdydsgn 

set  stydsgntot  =  tmp_totdsgn 
where  stycimumb  =»  tmp_stycitnumb 
update  paperover 

set  papnumdsgn  =  tmp_totdsgn 
where  papcitnumb  '(mp_stycimumb 
select  count!*)  into  x  from  exporegm 
where  excimumb  *  tmp_stycitnumb 
and  exdsgnnum  =  tmp_styseria! 
display  ""  at  2,2 

call  delete_expo(tmp_stycitnumb,tmp_styserial,0,0) 
display  "  ",  x  using  "  exposure  regimens  deleted"  at  2,2 

select  count!*)  into  x  from  subjgrp 

where  sgdtnumb  «•  tmp_stycimumb 
and  sgdsgnnum  ■  tmp_styserial 
display  ""  at  2,2 

call  delete_sgrp!tmp_stycimumb,tmp_styserial,0,0) 
display  "  ",  x  using  "«&",  "  subject  groups  deleted"  at  2,2 
select  count!*)  into  x  from  expogrp 
where  egcimumb  » tmp_stycimumb 
and  egdsgn  ■  tmp_styserial 
display  ""  at  2,2 

call  delete_exgp!tmp_stycimumb,tmp_styserial,0,0) 
display  "  ",  x  using  "  exposure  groups  deleted"  at  2,2 

exit  menu 
end  menu 
exit  menu 
end  menu 
call  alrt270close!) 

END  FUNCTION 
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FUNCTION  renum_dsgn{tmp_stycitnumb,  deLdsgn,tot_dsgn) 

define 

tmp_stydtnumb  like  stdydsgn.stycitnumb, 
tmp_styserial  integer, 
tmp_cur,  del_dsgn,  tot_dsgn  smallint 
declare  renum  cursor  for 

select  styserial,  stydsgncur 
into  tmp_styserial,  tmp_cur 
from  stdydsgn 

where  stycimumb  =  tmp_stycitnumb 
and  stydsgncur  >=  del_dsgn 
order  by  2 
foreach  renum 

update  stdydsgn 

set  stydsgncur  =  (stydsgncur  - 1) 
where  styserial  =  tmp_styserial 
call  renum_exgp(tmp_stycitnumb,  tmp_styserial,  0, 0) 
end  foreach 
END  FUNCTION 

FUNCTlONadd_detalls(t_clt,  tjyp«,i_subj,  t  expo,  t  dsgn) 

{ 

need  to  have  a  branch  here  for  various  designs 

for  example,  analytical  design  would  need  a  different  set  of  calls 


define 

t_cit  like  stdydsgn.stycitnumb, 
t_type  like  stdydsgn.stytype, 
t_sub;  like  stdydsgn-stynumgrp, 
t_expo  like  stdydsgn.stjmumexp, 
t_dsgri  integer, 
c_expo,  c_subj  smallint 

case 

when  t_subj »  0 

select  count(*)  into  c_expo 
from  exporegm 
where  excitnumb  ■  t_cit 
and  exdsgnnum  » t.dsgn 
if  status  »  NOTFOUND 
then  let  c_expo  »  0 
end  if 

call  add_expo(t_cit,  c_expo,  t_expo,  t_dsgn) 
exit  case 
when  t_expo  ■  0 

select  count!*)  into  c_subj 
from  subjgrp 
where  sgritnumb  » t_cit 
and  sgdsgnnum  ■  t  dsgn 
if  status -NOTFOUND 
then  let  c_subj »  0 
end  if 

call  add_sgrp(t_cit,  c_subj,  t.subj,  t_dsgn) 
exit  case 
otherwise 

call  add_sgrp(t_cit,  0,  t_subj,  i.dsgn) 
_ call  add_expo(t_cit,  0,  t_expo,  t_dsgn) 
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exit  case 
end  case 

current  window  is  dsgnwin 
END  FUNCTION 

FUNCTION  chk_cntl_chnge() 

open  window  ck_cntl_chg  at  10,10  with  2  rows,  50  columns 
attribute  (border,  reverse,  prompt  line  first  +  1) 
display  "  This  will  change  existing  data  in  the  fields  below.  "  at  1,1 
attribute  (reverse) 

prompt  "  Continue?  (y/N)  "  for  answer 
close  window  ck_cntl_chg 
return  answer 
END  FUNCTION 

FUNCTION  alrt_boxl() 

open  window  alrt_boxl  at  10,10  with  2  rows,  50  columns 
attribute  (border,  reverse,  prompt  line  first  +  1) 
display  "  This  value  is  greater  than  previously  indicated.  "  at  1,1 
attribute  (reverse) 

prompt  "  Do  you  want  to  add  items?  (y/n)  >  "  for  answer 
close  window  alrt  boxl 
END  function' 

FUNCTION  alrt_box2() 

open  window  alrt_box2  at  10,10  with  2  rows,  50  colunms 
attribute  (border,  reverse,  prompt  line  first  +  1) 
display  "  This  value  is  less  than  previously  indicated.  "  at  1,1 
attribute  (reverse) 

prompt  "  Do  you  want  to  remove  items?  (y/n)  >  "  for  answer 
close  window  alrt  box2 
END  function' 
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#tkssgrp.4gi 

(TITLE:  tkssgrp.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Uliois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 

add_sgrp(tmp_sgcitnum,  cursubj,  tot_numsubj,  tmp_design) 

find_sgrp(t_cit,t_dsgn) 

view_sgrpO 

disp_sgrpO 

up^te_sgrp(tmp_sgcitnum,  tmp_sgserial) 
de!ete_sg;rp(tmp_sgcitiium,  sg_dsgn,  sg_scrial,  del_flag) 
renum_sub;(o_cit,n_cit,o_dsgn,o_subj,n_subj) 


database  tkstest 
globals  "tksglob.4gl" 

FUNCTION  add_8grp(imp_sgcltrium,  cursubj,  tot_numsubj,  tmp_design) 
#  receiving  (cit  no.,  current  subj  no.,  total  no,  of  subj,  dsgn  serial  no.) 
define 

tmp  .design  integer, 

tmp_sgcitnum,  tmp_cit  like  subjgrp.sgcitnumb, 
dsgnlabel  smallint, 
totval,  remain,  letl,  let2  smailint, 
tmpjink  char(2), 
sextrans,ageunit  che.rfTO), 
tmp_sex,  tmp_ar  chard), 
tmp_age,  tmp_wr  char(2), 
tmp„ager3nge  chardO), 
tmp_wtrange  chardO), 
tcLnumsubj,  cursubj,  x  smallint 
call  swinopenO 
clear  form 
let  chosen  « 1 
display  ""  at  1,1 

select  stydsgncur  into  dsgnlabel 
from  stdydsgn 

where  styserial  ■  tmp  design 
if  status -NOTFOUND 

then  let  dsgnlabel  ■  tmp_design 
end  if 
let  sw  ■  0 

for  cnt  •  (cursubj+1)  to  tot_numsubj 
INITIALIZF  sgrp_arTay(cnn.*  to  null 
end  for 

call  set_count(tot_numsubj) 

optiorrs  help  file  "tkshelp.msg'',  help  key  control-w 

input  array  sgrp  array  from  sgrp  rec.* 

ON  KEY  (INTERRUPT) 
let  sw  ■! 
exit  input 

ON  Key(control-w) 
case 

when  infieldCsglink) 
call  showhelp(600) 
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when  infield(sgsource) 
call  showhelp(602) 
when  infield(sgnunb) 
caJi  showhelp(603) 
when  infield(sgsex) 
call  showhelp(604) 
when  infield(sgage) 
call  showhelp(605) 
when  infield(sgwt) 
call  showhelp)(606) 
when  infield(sght) 
call  showhelp(607) 
when  inrield(sgoccup) 
call  showhelp(608) 
when  infield(sghlthstat) 
call  showhelp(609) 
when  infield(sgtotexpo) 
call  showhelp(610) 
end  case 

BEFORE  field  sgcitnumb 
#initial  displays 

display  ""  to  sextrans 
display  ""  to  ageunit 
display  ""  to  agerange 
display  ""  to  wtrange 
display  by  name  tot_numsubj 
play  by  name  dsgnlabel 
nr_subj  ■  arr_curr()  +  cursubj 
V  subj_cnt  ■  arr.countO  ♦  cursubj 
let  sgrp_amiy(cuiT_subjj.sgserial  »  0 
let  sgrp_array{curr_subj).sglink  =  curr_subj 
display  by  name  sgrp_aiTaylcurr_subjl.sglink 
if  tmp_sgcitnum  is  not  null 
then 

let  sgrp_array(curr_subj].sgatnumb  » tmp_sgatnum 
let  sgTp_aiTay(curr_subj].sgdsgnnum  ■  tmp_design 
display  by  name  sgrp_arTaylcurr_subjJ.sgdtnumb 
display  by  name  sgrp_array(curr_subjj.sgdsgnnum 
end  U 

next  field  sgspecies 
AFTER  field  sgcitnumb 

if  sgrp_array(curr_arr|.sgcitnumb  is  null 
then 

error  "Must  have  Citation  Number" 
next  field  sgcitnumb 
else 

let  tmp_cit  ■  sgrp_array(curr_an).sgcitnumb 
let  x  »  ex:st_citnumb(tmp_cit) 
if  X  ■  0  then 

error  "No  CITATION  DATA  entered  with  this  number." 
next  field  sgcitnumb 
end  if 

end  if 

before  field  sgsex 
call  sex_chotceO 
after  field  sgsex 

let  tmp_sex  ■  sgrp_jrray(cutT_subj|. sgsex _ 
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call  sex_trans(tmp_sex)  returning  sextrans 
if  chosen  =  0 

then  next  field  sgsex 
else 
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display  by  name  sextrans 
call  clear_cho'ce<9,14,50) 
end  if 

before  field  sgageunit 
call  date_choice() 
after  field  sgageunit 

let  tmp_age  =  sgrp_array[curr_subjl.sgageunit 
call  date_trans(tmp_age)  returning  ageunit 
if  chosen  =  0 

then  next  field  sgageunit 
else 

display  by  name  ageunit 
call  clear_choice(9,14^0) 
end  if 

before  field  sgagerange 
call  agergn_choice() 
after  field  sgagerange 

let  tmp_ar  =  sgrp_array(curr_subj).sgagerange 
call  agergn_tran(tmp_ar)  returning  tmp_agefange 
if  chosen  =  C 
then 


next  field  sgagerange 
else 

display  tmp_agerange  to  agerange 
call  clear_choice{9,14^0) 
end  if 

before  field  sg’wturut 
call  wt_choiceO 
after  field  sgwtunit 
case 


when  sgrp_array{curr_subj).sgwtunit  •  "LB" 

let  sgrp_array|cun’_subjl.sgwt  »  sg;rp_array[curr_subjl.sgwt  /  2.2 

let  sgrp_array{curr  subjj.sgwtunit »  "KG" 

display  by  name  sgrp_array(curr_subj).sgwt 

display  by  name  sgrp_arraylcurr_5ubjj.sgwtunit 

exit  case 

when  sgrp_array(cun’_subil.sgwtunit  ■  "OZ" 

let  sgrp_array(curr_subj).sgwt  »  sgTp_array(cuiT_subj).sgwt  /16  /  2.2 

let  sgrp_array{curr_subj).sgwtunit »  "KG  ' 

display  by  name  sgrp_aiTay(curr_subj].sgwt 

display  by  name  sgrp.arraylcurr.subjl.sgwtunit 

exit  case 

when  sgrp_arr«ry(curr_subil.sgwtunit  ■  "GM" 

let  sgrp_array(cuiT_subjJ.sgwt «  sgrp_array(cuiT_subjJ.sgwt  /  1000 

let  sg;rp_arraylcurr_subj).sgwtunit «  "KG" 

display  by  name  sgrp_array(curr_subj).sgwt 

display  by  name  sgrp_array(curr .subjj.sgwtunit 

exit  case 

when  3grp_array(curr_sub)|.sgwtunit  -  "KG" 

let  sgrp_array(curr_sub)|.sgwt  ■  sgrp_array{curr_subj|.sgwt 
let  sgrp.arraylcurr.subjj.sgwiunit »  "KG" 
display  by  name  sgrp_array|curr_subj|.sgwt 
display  by  name  sgrp_array|curr_sub)|.sgwtunit _ 
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exit  case 
otherwise 

error  'Indicated  units  are  not  acceptable!" 
sleep  1 

next  field  sgwtunit 
exit  case 
end  case 

call  clear_choice{9,14^0) 
before  field  sgwtrange 

call  wrangeChoicef)  returning  sgrp_array(curr_subjj. sgwtrange 
after  field  sgwtrange 

let  tmp_wr  =  sgrp_aiTay[curr_subjl. sgwtrange 
call  wtrgn_tran(tmp_wr)  returning  tinp_wtrange 
if  chosen  =  0 
then 

next  field  sgwtrange 

else 

display  tmp_wtrange  to  wtrange 
call  clear_choice(9,14^0) 
end  if 

after  field  sgtotexpo 

if  subj_cnt  ■  tot_numsubj 
then  exit  input 
end  if 
eiul  input 

if  sw  *  1  then  return  end  if 
for  cnt  »  (cursubj+l)  to  subj_cnt 

insert  into  subjgrp  values(sgrp_array(cnfl.'') 
end  for 

call  swinclosef) 

Efv'D  FLINCTION 

########!>«#####«# 

FUNCTION  (lnd_sgrp(t_clt,t_dsgn)  (citation,  design  serial  number) 

define 

t_cit  like  subjgrp.sgcilnumb, 
t_dsgn  integer 
call  swinopenO 
case 

when  (t_dt  is  null  and  t_dsgn  «  0) 
clear  form 

message  "Enter  search  criteria  and  hit  ESC  to  search" 
let  int_flag  ■  0 

construct  by  name  query  1  on  subjgrp.* 
if  int_nag  <>  0  then  return  end  if 
let  selectl  •  "select  *  from  subjgrp  where  ", 
query!  clipped, 

"  order  by  sgcitnumb,  sgdsgnnum,  sglink" 
let  sclect2  •  "select  rount(’)  from  sub)grp  where  ", 
query!  clipped 
exit  case 

when  (t_cit  is  not  null  and  t_dsgn  ■  0) 

let  selectl  ■  "select  *  from  subjgrp  where  sgcitnumb  ■  ", 
quote,  t_cit  clipped,  quote, 

"  order  by  sgcitnumb,  sgdsgnnum,  sglink" 
let  select2  •  "select  counti*)  from  subjgrp  where  sgcitnumb 
quote,  t_dt  clipped,  quote 
exit  case 
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otherwise 

let  selectl  =  "select  *  from  subjgrp  where  ", 

"sgcitnumb  =  ",  quote,  t_cit  clipped,  quote, 

"  and  sgdsgnnum  =  ",  t_dsgn, 

"  order  by  sgcitnumb,  sgdsgnnum,  sglink" 
let  select2  =  "select  countt*)  from  subjgrp  where  ", 
"sgcitnumb  =  ",  quote,  t_cit  clipped,  quote, 

"  and  sgdsgnnum  =  ",  t_dsgn 
exit  case 
end  case 

prepare  cnt_subjgrp  from  select2 
prepare  slct_subjgrp  from  selectl 
display  "Searching  ..."  at  21,2  attribute! reverse) 
declare  cnt„curs  cursor  for  cnt_subjgrp 
foreach  cnt_curs  into  ent 

end  foreach  , 

declare  s_curs  scroll  cursor  for  slct_subjgrp 
open  s_curs 
call  view_sgrp() 
close  s_curs 
end  function 

FUNCTION  vlew_sgrp() 

FETCH  FIRST  s_curs  into  T_subjgrp.* 
if  status  =  NOTFOUND 
THEN 

MESSAGE  'TJo  subjects  found." 

SLEEP  I 
MESSAGE  "" 
else 

let  tmp„cnt  *  1 
call  disp_sgrp<) 
display  ""  at  21.2 

display  "  ",  tjr.p_cnt,  "  of  ",  ent, "  rows  found."  at  21,2 
end  if 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Subject  Group  in  the  list."  HELP  170 
FETCH  NEXT  s_curs  into  T_subjgrp.* 
let  tmp_cnt  «  tmp_cnt  +1 
if  status  ■  N0TF0”UND  THEN 

message  "No  more  Subject  Groups  in  this  direction." 
sleep  1 

let  tmp_cnt  ■  ent 
message  "" 

fetch  last  s_curs  into  T_subjgrp.* 
end  if 

display  ""  at  21,2 

display  "  ",  tmp_cnt,  "  of  ",  ent,  "  rows"  at  21,2 
attributefreverse) 
call  disp_sgrp() 

COMMAND”"Previou5" 

"View  the  previous  Subject  Groups  in  the  list."  HELP  170 
FETCH  PREVIOUS  s.curs  into  T^subjgrp." 
let  tmp_cnt  ■  tmp_cnt  -1 
if  status  -  NOTFOUND  THEN 

_ message  "No  more  Subject  Groups  in  this  direction." 
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sleep  1 
message 
let  tmp_cnt  =  1 

fetch  first  s_curs  into  T_subjgrp.* 
end  if 

display  ""  at  21,2 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  21,2 
attribute(reverse) 
call  disp_sgrp() 

COMMAND  "First" 

"View  the  first  Subject  Group  in  the  list."  HELP  170 
FETCH  FIRST  s_curs  into  T_subjgrp.* 
let  tmp_cnt  =  1 
display'""  at  21,2 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  21,2 
attributefreverse) 
call  disp_sgrp() 

COMMAND  "Last" 

"View  the  last  Subject  Group  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  9_curs  into  T_subjgrp.* 

let  tmp_cnt  =  cnt 

message 

display  ""  at  21,2 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  row"  at  21,2 
attributefreverse) 
call  disp  sgrpO 
COMMAND  "Update" 

"Update  Subject  data"  HELP  171 

call  update_sgip(T_subjgrp.sgcimumb,T_subjgrp.sgserial) 
call  disp  .SgrpO 
COMMAND  "Delete" 

"Delete  this  entry  from  the  database<submenu>"  HELP  611 

call  delete_sgrp<T_subjgrp.sgatnumb,  T_subjgTp.sgdsgnnum,T_subjgrp.sgserial,l) 

call  disp_sgrp() 

COMMAND  "Query-Again" 

"Enter  new  search  criteria"  HELP  612 

close  s_cur3 

let  citnumber  »  "" 

let  hold_dsgn  »  0 

call  find_sgrp<citnumber,hold_dsgn) 
exit  menu 
COMMAND  "Exit" 

"Leave  this  menu."  HELP  2 
clos  .curs 
exit  menu 
end  menu 
closes  curs 
END  FACTION 

##################«#####################«#####»##################### 

FUNCTION  dlsp.sgrpO 

define 

tot.numsubj  smallint, 
dsgnlabcl  integer, 
agerange,  wtrange  char<20), 
sextrans,ageunit  char(20) 
select  count(*)  into  tot.numsubj 
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from  subjgrp 

where  sgdtnumb  =  T_subjgrp  sgcitnumb 
and  sgdsgnnum  =  T_subjgrp.sgdsgnnum 
display  by  name  T_subjgrp.* 
call  sex_trans(T_subjgrp.sgsex)  returning  scxtrans 
display  by  name  sextrans 

call  r'a‘.e_trans(T_subjgrp.sgageunit)  returning  ageunit 
display  by  name  ageunit 

call  agergn_tran(T_subjgrp.sgagorange)  returning  agerange 
display  by  name  agerange 

call  wtrgn_tran(T_subjgrp.sgwtrange)  returning  wtrange 
display  by  name  wtrange 
display  by  name  tot_numsubj 
select  stydsgncur  into  dsgnlabel 
frorr  stdydsgn 

where  styserial  =  T_subjgrp.sgdsgnnum 
display  by  name  dsgnlabel 
END  FUNCTION 

FUNCTION  updat«_sgrp(tmp_sgcltnum,  tmp_sgserlal) 

define 

tmp_sgserial  integer, 
lmp_sgcitnum  like  subjgrp.sgcitnumb, 
sextransageunit  chdr(20), 
tmp_sex.  tmp_3r  chard), 
tmp_age,  tmp_wr  char(2), 
tmp_ag2rar.ge  chart  1 0), 
lmp_wtrange  chart  10), 
tmp_dsgn  like  subjgrp.sgdsgnnum, 
list_flag,  tmp_sgnum,  sg_cnt  smallint 
let  sw  «  0 

display  tmp_sgcitnum  to  sgcitnumb 

display  tmp_sgserial  to  sgserial 

INPUT  T_sulijgrp.*  without  defaults  from  sgip  ret.* 

ON  KEY  (INTERRUPT) 
let  sw  ■  1 
exit  input 

before  field  sgcitnumb 

select  stydsgncur  into  tmp_dsgn 
from  stdydsgn 

where  stysenal  *  T_subjgrp.sgdsgnnum 
display  tmp_dsgn  to  dsgniabel 
select  countt*)  into  sg_cnt 
from  subjgrp 

where  sgdsgnnum  ■  T_subjgrp  sgdsgnnum 
display  sg_cnt  to  tot_numsubj 
after  field  sgatnumb 

message  "Hit  ESCAPE  to  update  row" 
if  T.subjgrp.sgcitnumb  is  null 
then 

error  "Must  have  citnumberf" 

end  if 

if  tmp_5gcitnum  <>  T_subjgrp.sgcitnumb  then 

call  exist_citnumb(T..sub)grp  sgatr.umb)  returning  x 
if  X  a  0 
then 

error  beep,  "No  CITATION  entered  with  this  NUMBER  " 


next  field  sgcitnumb 

else 

select  countf*)  into  x 
from  subjgrp 

where  sgcitnumb  =  T_'ir:)jgrp.sgcitnumb 
if  X  >  0  then 

error  "SUBJECT  data  already  entered  for  this  paper." 
sleep  2 

next  field  sgcitnumb 
end  if 

end  if 
end  if 

after  field  sgdsgnnum 

select  stydsgncur  into  tmp_dsgn 
from  stdydsgn 

where  styserial  *  T_suhjgrp.sgdsgnnum 
display  tmp_dsgn  to  dsgnlabel 
before  field  sgsex 
call  sex_choice() 
after  field  sgsex 

call  sex_trans(T_subjgrp.sgsex)  returning  sextrans 
if  chosen  =  0 

then  next  field  sgsex 
else 

display  by  name  sextrans 
call  clear_choice(9,14^0) 
end  if 

before  field  sgageunit 
call  date_choice<) 
after  field  sgageunit 

call  date_trans»T_3ubigrp.sgageunit)  returning  apeunit 
if  chosen  »  0 

then  next  field  sgageunit 
else 

display  y  name  ageunit 
call  clear_choice{9,14^) 
end  if 

before  field  sgagerange 
call  agergn_choiceO 
after  field  sgagerange 

let  tmp_ar  -  T_subjgrp.sgagerange 
call  agergn_tran(tmp_ar)  returning  tmp_agcrange 
if  chosen  ■  0 
then 

next  field  sgagerange 
else 

display  tmp.agerange  to  agerange 
call  clcar_choice(9,14^0) 
end  if 

before  field  sgwtunit 
call  wt_choice<) 
after  field  sgwtunit 
case 

when  T_subjgrp.sgwtunit  -  "LB" 

let  T_3ubjgrp.spwt  ■  T_3ubjgrp.sgwt  *  2.2 
let  T_subjgrp.sgwlunit  ■  "KG" 
display  by  nanre  T_subjgrp.sgwt 
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display  by  name  T_subjgrp.sgwtunit 
exit  case 

when  T_subjgrp.sgwtunit  =  "OZ" 

let  T_subjgrp.sgwt  =  T_subjgrp.sgwt  /16  *  2.2 
let  T_subjgrp.sgwtunit  =  "KG" 
display  by  name  T_subjgrp.sgwt 
display  by  name  T_subjgrp.sgwtunit 
exit  case 

when  T_subjgrp.sgwtunit  =  "GiM" 

let  T_subjgrp.sgwt  =  T_subjgrp.sgwt  /  1000 
let  T_subjgrp.sgwtunit  =  "KG" 
display  by  name  T_subjgrp.sgwt 
display  by  name  T_subjgrp.sgwtunit 
exit  case 

when  T_subjgrp.sgwtunit  =  "KG" 

let  T_subjgrp.sgwt  =  T_subjgrp.sgwt 
let  T_subigTp.sgwtunit  =  "KG" 
display  by  name  T_subjgrp.sgwt 
display  by  name  T_subjgrp.sgwtunit 
exit  case 
otherwise 

error  'Indicated  units  are  not  acceptable!" 
sleep  1 

next  field  sgwtunit 
exit  case 
end  case 

call  clear_choice(9,14^0) 
before  field  sgwtiange 

call  wrangeChoicef)  returning  T_subigrp.sgwtrange 
after  field  sgwtrange 

let  tmp_wr  »  T_subjgTp,  sgwtrange 
call  wtrgn_tran(tmp_wr)  returning  tmp_wtrange 
if  chosen  =  0 
then 

next  field  sgwtrange 
else 


display  tmp_wtrange  to  wtrange 
call  clear_choice(9,14^0) 
end  if 


End  Input 

if  sw  «  1  then  return  end  if 
UPDATE  subjgrp  set  subjgrp.*  »  T_subjgrp.* 
where  subjgrp.sgserial  =  tmp  sgserial 
END  FUNCTION 

##################################################^################# 

FUNCTION  deleie_sgrp(tmp_3qc!tnum,  sg_dsgn,  sg_serial,  detjlag) 

define  tmp_sgcitnum  like  subjgrp.sgcitnumb, 
sg_dsgn  like  subjgrp.sgdsgnnum, 
sg_serial  integer, 
del_flag,  tot_sg,  sg_lnk  smallint 
if  del_flag  <>  0 
then 

call  alrt260op€n() 

PROMPT  "Do  you  want  to  delete  this  Subject  Group?  (y/n)  " 
for  char  answer 
If  upshift(answer)  ■  "N" 
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then 

message  "Row  NOT  deleted" 
sleep  1 
Message  "" 
call  alrt260close{) 
return 
else 

if  sg_serial  =  0 
then 

DELETE  FROM  subjgrp 

where  sgeitnumb  =  tmp_sgcitnum 
and  sgdsgnnum  =  sg_dsgn 
clear  form 
else 

select  counU*)  into  tot_sg 
from  subjgrp 

where  sgeitnumb  =  tmp_sgcitnum 
and  sgdsgnnum  =  sg_dsgn 
select  sglink  into  sg_lnk 
from  subjgrp 
where  sgserial  *  sg_serial 
DELETE  FROM  subjgrp 
where  sgserial  =  sg_serial 
if  sg_lnk  <  tot_sg  then 
for  X  =  sg_tnk  to  tot_sg 

call  renum_subj(tmp_sgcitnum,"0",  sg_dsgn,  x-rl,  x) 
end  for 
end  if 

if  del_flag  <>  0 
then 

Message  "ROW  DELETED." 
sleep  1 
Message  "" 
call  alrt260closc{) 
end  if 

end  if 

end  if 

end  if 

end  FUNCTION 

FUNCTION  renum_8ubj(o_clt,n_clt,o_dsgn,o_subj,n_subj) 

#  This  probably  needs  an  internal  loop  to  manage  the  counting 
define 

o_cit,n_cit  like  subjgrp.sgcitnumb, 
o_dsgn  integer, 

o_subj,  n_subj  like  subjgrp.sglink 
update  subjgrp 

set  sglink  ^  n_subj 
where  sgeitnumb  »  o_cit 
and  sglink  »  o_subj 
and  sgdsgnnum  *  o_dsgn 

call  renum_exgp{o  cit,n  cit,o  dsgn,o  subj,n  subj,0,0) 
end  FUNCTION 
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#tksexpo.1gt 

(Title;  tksexjx).4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  llliois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 

add_expo(ex_cit,  tmp_numexpo,  tot_numexpo,  tmp_design) 

find_expo(t_cit,t_dsgn) 

view_expoO 

disp_expo() 

up>date_expo(tmp_citno,tmp_serial) 
delete_expo(ex_cit,  ex_dsgn,  ex_serial,  del_flag) 
renum_expo(o_cit,n  dt.o  dsgn,n_dsgn,o_expo,n  expo) 

} 

database  tkstest 
globals  "tksglob.4gl" 

#################################################################### 

FUNCTION  add_6xpo(ex_cit,  tmp_numexpo,  tot_numexpo,  tmp_dssign) 

#  citation  num,  current  expo  cnt,  tot  num  of  expo,  design  serial  num 
define 

formulation,  route,  purpose  chaKlO), 
ex_dt  like  exporegm.excitnumb, 
tmp_design  integer, 
tmp_2ch  char(2), 
tmp_3ch  char(3), 

dsgnlabel,tmp_numexpo,  tot_numexpo  smallint, 
ew,  curr_exp,  exp_cnt,  xsmallint 
#initial  setup 

call  expwinopenO 
display  ""  at  1,1 
clear  form 
let  ew  =  0 

select  stydsgncur  into  dsgnlabel 
from  stdydsgn 
where  styserial  *  tmp_design 
if  status  a  NOTFOUND 

then  let  dsgnlabel  »  tmp_design 
end  if 

for  cnt » (tmp_numexpo+l)  to  tot_numexpo 
initialize  expo_array(cntl.*  to  null 
end  for 

call  set_count(tot_numexpo) 
options  help  file  "tkshelp.msg", 
help  key  CONTROL-w 
input  array  expo_array  from  exp_rec.* 
on  key(interrupt) 
let  ew  » 1 
exit  input 
On  Key(control-w) 
case 

when  infield(expurpose) 
call  showhelp(701) 
when  infield(exagent) 
call  showhelp(702) 
when  imield(exdose) 
call  showhelp(703) 
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when  infieIcKexformul) 
call  showhelp(704) 
when  infield(exroute) 
call  showhelp(705) 
when  infielcKexinterval) 
call  showhelp(706) 
when  infield(exduration) 
call  showhelp(707) 
when  infield(exadminmeth) 
call  showhelp(708) 
when  infield(exevaltime) 
call  showhelp(709) 
end  case 


before  field  exdtnumb 

let  curr_exp  =  arr_curr()  +  tmp_numexpo 

let  exp_cnt  =  arr_count()  +  tmp_numexpo 

let  expo_array[curr_expJ.exdsgnnum  =  tinp_design 

let  expo_aiTay(curr_expl. exserial  =  0 

let  expo_array(curr_expl.exlii\k  =  curr_exp 

#initial  displays 

display  ""  to  frm_only.fonnulation 
display  ""  to  frTn_only.route 
display  ""  to  fnn_only.purpose 
display  ex_cit  to  excitr.unnb 
display  by  name  tot_numexpo 
display  by  name  dsgnlabel 
display  by  name  expo_array(curr_expJ.exdsgnnum 
display  by  name  expo_aiTay(curr_expJ.exlink 
if  ex„dt  is  not  null 
then 

let  expo_array(curr_expI.excitnumb  =  ex_cit 
display  by  name  expo_arraylcurr_exp].excitnumb 
next  field  expurpose 
end  if 

before  field  expurpose 
call  pur_choice() 
after  field  expurpose 

let  tmp_3ch  »  expo_array(curr_expJ.expurpose 
call  pur_trans(tmp_3ch)  returning  purpose 
if  chosen  »  0 

then  next  field  expurpjose 
else  display  by  rume  purpose 
end  if 

call  clear_choice(9,14^2) 
before  field  exdoseunit 
call  dose_choice() 
before  field  exfcrmul 
call  form_choice() 
after  field  exformul 

let  tmp_2ch  «  expo_array(curr_expl.exformul 
call  form_trans(tmp_2ch)  returning  formulation 
if  chosen  »  0 

then  next  field  exformul 

else  display  by  name  formulation 

end  if 

before  field  exroute 
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call  rte_choice() 
after  field  exroute 

let  tmp_2ch  =  expo_array[curr_expl.exroute 
call  rte_trans(tmp_2ch)  returning  route 
if  chosen  =  0 

then  next  field  exroute 
else  display  by  name  route 
end  if 

call  clear_choice{9,18^2) 
after  field  exevaltime 

if  exp_cnt  =  tot_numexpo 
then  exit  input 
end  if 
end  input 

options  help  key  control-w 
if  ew  =  1 

then  return 
end  if 

for  cnt  =  (tmp_numexpo  +  1)  to  exp_cnt 

insert  into  exporegm  values  {expo_array(cntI.*) 
end  for 

call  expwincloseO 
end  FUNCTION 

#################################################################### 

FUNCTION  flnd_axpo(t_cit,t_dsgn)  {citation,  design  serial  number} 

define 

t_cit  like  exporegm-excitnumb, 
t_dsgn  inte^r 
call  expwinopenO 
case 

when  (t_cit  is  null  and  t_dsgn  =  0) 
clear  form 

message  "Enter  search  criteria  and  hit  ESC  to  search" 
let  int_flag  =  0 

construct  by  name  queryl  on  exporegm.* 
if  int_flag  <>  0  then  return  end  if 
let  selectl  a  "select  *  from  exporegm  where  ", 
queryl  clipped; 

"  order  by  exctnumb,  exdsgnnum,  exlink" 
let  select2  »  "select  count(*)  from  exporegm  where  ", 
queryl  clipped 
exit  case 

when  (t_cit  is  not  null  and  t_dsgn  ■  0) 

let  selectl  ■  "select  *  from  exporegm  where  excimumb  »  ", 
quote,  t_cit  clipped,  quote, 

"  order  by  excitnumb,  exdsgnnum,  exlink" 
let  select2  ■  "select  count!*)  from  exporegm  where  excimumb 
quote,  f.cit  clipped,  quote 
exit  case 
otherwise 

let  selectl  »  "select  *  from  exporegm  where  ", 

"excimumb  ■  ", quote,  t_cit  clippcd,quote, 

"  and  exdsgnnum  »  ",  t_dsgn, 

"  order  by  excimumb,  exdsgnnum,  exlink" 
let  select2  *  "select  count!*)  from  exporegm  where  ", 

"excimumb  ■  ",quote,  l_cit  clippcd,quote, 

_ "  and  exdsgnnum  ■  ",  Ldsgn _ 
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exit  case 
end  case 

prepare  cnt_expo  from  select2 
prepare  select_expo  from  selectl 
display  "Searching  ..."  at  20^  attribute(reverse) 
declare  cnt_curs  cursor  for  cnt_expo 
foreach  cnt_curs  into  cnt 
end  foreach 

declare  e_curs  scroll  cursor  for  select_expo 
open  e_curs 
call  view_expo() 
end  FUNCTION 

###*################################################################ 
FUNCTION  vlew_expo() 

fetch  first  e_curs  into  T_exporegm.* 
if  status  =  NOTFOUND 
then 

MESSAGE  "No  exposures  found." 

SLEEP  1 
MESSAGE  "" 
else 

let  tmp_cnt  *  1 
call  disp_expo<.) 
display  ""  at  20^ 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows  found."  at  20,2 
end  if 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Exposure  Regimen  in  the  list."  HELP  170 
FETCH  NEXT  e.curs  INTO  T_exporegm.* 
let  imp  cnt  »  tmp  cnt  +1 
IF  status  »  NOTFOUND  THEN- 

MESSAGE  "No  more  Exposure  Regimens  in  this  direction." 

SLEEP  1 

let  tmp_cnt »  cnt 
MESSAGE  "" 

FETCH  LAST  e_curs  INTO  T_exporegm.* 

END  IF  ” 
display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  20,2 
attributefreverse) 
call  disp_expo() 

COMMAND  "Previous" 

"View  the  Previous  Exposure  Regimen  in  the  list."  HELP  170 
FETCH  PREVIOUS  e.curs  INTO  T.exporegm.* 
let  tmp  cnt  *  tmp  cnt  - 1 
IF  status  -  NOTFOUND  THEN 

MESSAGE  "No  more  Exposure  Regimens  in  this  direction." 

SLEEP  1 
MESSAGE  "" 
let  tmp  cnt  ■  1 

FETCH  FIRST  e  curs  INTO  T  exporegm.* 

END  IF 

display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  20,2 
attributefrevcrse) 
call  disp.exrxjO 
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COMMAND  "First" 

"View  the  first  Exposure  Regimen  in  the  list."  HELP  170 
FETCH  FIRST  e_curs  INTO  T_exporegm.* 
let  tmp_cnt  =  1 
display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  20,2 
attribute(reverse) 
call  disp_expo() 

COMMAND  "Last" 

"View  the  Last  Exposure  Regimen  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  e_curs  INTO  T_exporegm.* 
let  tmp_cnt  =  cnt 
message  "" 
display  “"  at  20,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  20,2 
attribute(reverse) 
call  disp_expo() 
command  "Update" 

"Update  Exposure  Data"  HELP  171 

call  update_expo(T_exporegm.excitnumb,T_exporegm.exserial) 
call  disp_expoO 
command  "Delete" 

"Delete  this  entry  from  database  <submenu>"  HELP  715 
call  delete_expo(T_exporegm.excitnumb,0,T_exporegm.exlink,l ) 
call  disp_expo() 

COMMAND  "Query-again" 

"Enter  new  search  criteria"  HELP  716 
close  e_curs 
let  citnumber  »  "" 
call  find_expo(citnumber,0) 
exit  menu 
COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
close  e_curs 
EXIT  MENU 
END  MENTJ 
end  FUNCTION 

FUNCTION  dlsp_«xpo0 

define 

tmp_formul  char(lO), 
formulation,  route,  purpose  chart  10), 
tmp_route  chartlO), 
tmp_numexp  chart2), 
dsgnlabel  integer 

select  uniquefstynumexp)  info  tmp_numexp 
from  stdydsgn 

where  styserial »  T_exporegm.exdsgnnum 
select  stydsgncur  into  dsgnlabel 
from  stdydsgn 

where  styserial  ■  T_exporegm.exdsgnnum 
display  by  name  dsgnlabel 
display  by  name  T_exporegm.* 
display  tmp_numexp  to  tot_numexpo 
call  pur_trans(T_exporegm.expurpose)  returning  purpose 
display  by  name  purpose  _ 
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call  form_trans(T_exporegm.exformul)  returning  formulation 
display  by  name  formulation 
call  rte_trans(T_exporegm.exroute)  returning  route 
display  by  name  route 
end  FUNCTION 

####^################################################################ 
FUNCTION  update_expo(tmp_cltno,tmp_serial) 
define 

formulation,  route,  purpose  char(lO), 
tmp_citno  like  expx)regm.excimumb, 
tmp_exno  like  exporegm.exlink, 
tmp_dsgn  like  exporegm.exdsgnnum, 
tmp_serial  integer, 
x,  ew,  cun„exp,  exp_cnt  smallint 
let  ew  »  0 

display  tmp_cimo  to  excimumb 
display  tmp_serial  to  exserial 
input  by  name  T_exporegm.*  without  defaults 
on  key(interrupt) 
let  ew  a  1 
exit  input 

before  field  exdmumb 
select  stydsgncur 
into  tmp_dsgn 
from  stdydsgn 

where  styserial  *  T_exporegm.exdsgnnum 
display  tmp_dsgn  to  dsgnlabel 
select  count(*) 
into  exp_cnt 
from  exporegm 

where  exdsgnnum  »  T_exporegm.exd5gnnum 
display  exp_cnt  to  tot^mimexpo 
after  field  exdsgnnum 
select  stydsgncur 
into  tmp_dsgn 
from  stdydsgn 

where  styserial »  T_exporegm.exdsgnnum 
display  tmp_dsgn  to  dsgnlabel 
select  count(*) 
into  exp_cnt 
from  exporegm 

where  exdsgnnum  »  T_exporegm.exdsgnnum 
display  exp_cnt  to  tot_numoxpo 
beiore  field  expurpose 
call  pur_choice() 
after  field  expurpose 

call  pur_trans(T_exporegm.expurpose)  returning  purpose 
if  chosen  *  0 

then  next  field  expurpose 
else  display  by  name  purpose 
end  if 

call  clear_choice<9,1832) 
before  field  exdoseunit 
call  dose_choice() 
before  field  exformul 
call  form_choice<) 
after  field  exformul 
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call  form_trans(T_exporegm.extormul)  returning  formulation 
if  chosen  =  0 

then  next  field  exformul 

else  display  by  name  formulation 

end  if 

before  field  exroute 
call  rte_choice() 
after  field  exroute 

call  rte_trans(T_exporegm.exroute)  returning  route 
if  chosen  =  0 

then  next  field  exroute 
else  display  by  rume  route 
end  if 

call  clear_choice(9,18^2) 
end  input 
if  ew  =  1 

then  return 
end  if 

update  exporegm  set  exporegm.*  =  T_exporegm.* 
where  exporegm-exserial  a  tmp_serial 
#  Logic  question 
( 

quesion  the  logic  of  this  part 
if  (T_exporegm.excitnumb  <>  lmp_citno  or 
T_exporegm.exdsgnnum  <>  lmp_dsgn  or 
T_exporegm.exlink  <>  tmp_exno) 
then 

call  renum„expo(tinp_citno,  T_exporegm.excitnumb, 
tmp_dsgn<  T_exporegm.exdsgnnum, 
tmp_exno,  T_exporegm.exlink) 
link  to  the  expogrp  tables  maintained  in  renum_expo 
end  if 
1 


end  FUNCTION 

#################################################################### 

FUNCTION  d«lete_oxpo(ex_clt,  ex_dsgn,  •x_s«rlal,  daljlag) 

#  ex_dsgn  a  0  to  delete  only  this  Ink 

#  ex_serial  a  0  to  delete  all  of  dsgn(x) 

#  del_flag  to  control  dialog  box 

define  ex_cit  like  exporegm.excitnumb, 
ex_dsgn  like  exporegmexdsgnnum, 
ex_serial  like  exporegm.exlink, 
exjnk,  del_flag,  tot_ex  smallint 
if  deLflag  <>  0 
then 

call  alrt260open0 

PROMPT  "Do  you  want  to  delete  this  Exposure  Regimen?  (y/n)  " 
for  answer 

If  upshiftfanswer)  ■  "N" 
then 

message  "Row  NOT  deleted" 

sleep  1 

Message  "" 

call  alrt260closc() 

return 
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else 

if  ex_serial  =  0 
then 

DELETE  FROM  exporegm 
where  excitnumb  =  ex_cit 
and  exdsgnnum  =  ex_dsgn 

else 

select  count!*)  into  tot_ex 
from  exporegm 
where  excitnumb  =  ex_cit 
and  exdsgnnum  =  ex_dsgn 
select  exlink  into  ex_lnk 
from  exporegm 
where  exserial  =  ex_serial 
DELETE  FROM  exporegm 
where  exserial  =  ex_serial 
if  ex_lnk  <  tot_ex  then 
for  X  =  exjnk  to  tot_ex 

call  renum_expo{ex_dt,"0'’,ex_dsgn,"0",x+l,x) 
end  for 
end  if 

if  del_flag  <>  0 
then 

Message  "ROW  DELETED." 
sleep  1 
Message  "" 
call  alrt260close<) 
end  if 

end  if 

end  if 

end  if 

end  FUNCTION 

FUNCTION  renuin_expo(o_cit,n_clt,o_dsgn,n_dsgn,o_0xpo,n_expo) 

define  o_cil,n_cit  like  exporegniexcitnumb, 
o_dsgn,  n_dsgn  like  exporegm.exdsgnnum, 
o_expo,  n_expo  like  exporegm.exlink 
if  n_dsgn  >  0 
then 

update  exporegm 

set  exdsgnnum  «  n_dsgn 
where  excitnumb  ■  o_cit 
and  exdsgnnum  »  o_dsgn 

else 

up-date  exporegm 
set  exlink  ■  n_expo 
where  excitnumb  ■  o_cit 
and  exlink  ■  o_expo 
and  exdsgnnum  ■  o_dsgn 

end  if 

( 

need  some  mechanism  to  renumber  exposure  group  data 

) 

end  FUNCTION 
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#tksexpgrp.4gl 

(Comments: 

Title:  tksexpgrp.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Purpose:  to  establish  links  between  regimens  and  groups 
Contaiits  the  following  functions: 
add_exgp(t_citnumber) 
find_exgp<t_cit) 
view_exgpO 
disp_exgp() 

update_exgp{tmp_citnumb,  tmp_sgserial) 
delete_exgp(tmp_citnumb,tmp_dsgn,  tmp_egserial,  del_flag) 
renum_exgp(t_cit,  t  dsgn,  t  sg,  t  ex) 

) 

database  tkstest 
globals  "tksglob.4gl" 

##########«##########################################«################# 
FUNCTION  add_exgp(t_cltnumb6r) 
define 

hold_serial  integer, 

hold_descript  like  expogrp.egdsgndsc, 
t_citnumber  like  expogrp.egcitnumb, 
tmp_dsgnlbl  like  expogrp.egdsgnlabel, 
tmp_dsgn  like  expogrp.egdsgn, 
tmp_subj,  tmp_ex|x)  snsallint, 
numexgp  smallint, 
pge  integer, 

p_numdsgn,eg,  x,  y,  curr_exgp,  exgp_cnt  smallint 
#initial  setup 

call  linkwinopenO 
clear  form 
display  ""  at  1,1 
leteg»0 
for  cnt  =  1  to  50 

initialize  exgp_arraylcnt|.*  to  null 
end  for 

call  set_count(50) 
options  help  file  "ikshelp.msg", 
help  key  CONTROL-w 
if  t_citnumber  is  null 

then  prompt  "Which  citation?  '  for  t_citnumber 
let  t_citnumber  »  upshift(t_citnumber) 
select  counK*)  into  cnt  from  citation 
where  citnumb  ■  t_citnumber 
if  cnt  <  1  then 

ERROR  "Must  add  citation  with  this  number  >  ", 

t.citnumber 

end  if 

end  if 

input  array  exgp_arTay  from  exgp_rcc.* 
on  key(interrupt) 
let  eg»l 
exit  input 
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on  key(CONTROL-w) 
case 

#  these  need  to  be  updated  3/21/89 
when  infield(egcitnumb) 
call  showhelp(800) 
when  infield(egdsgndsc) 
call  showhelp(801) 
when  infield(egsubgdsc) 
call  showhelp(802) 
when  infield(egexp>odsc) 
call  showhelp(803) 
when  infield(egtotnum) 
call  showhelp(804) 
end  case 


before  field  egcitnumb 

let  curr_exgp  =  aiT_curr() 
let  exgp_cnt  =  arr_count() 
let  exgp_array(cuiT_exgpl.egserial  =  0 
if  t_citnumber  is  not  null 
then 

let  exgp_aiTay[curr_exgpl.egcitnumb  =  t_citnumber 
display  by  name  exgp_arTay(curr_exgpi.egcitnumb 
select  countt*)  into  numexgp 
from  expogrp 

where  egcitnumb  « t_citnumber 
let  y  »  cuiT_exgp  +  numexgp 

let  exgp_array(curT_exgpl.egtotnum  »  exgp_cnt+numexgp 
display  y  to  egnum 

disp'ay  by  name  exgp_array(cun_exgpj.egtomum 
next  field  egcisgnlabel 
end  if 

before  field  egdsgnlabel 

call  show_dsgn(t_cimumber,  0)  rehiming  pge 

message  "Use  CNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page 
on  key  (CONTROL-P) 

if  infield(egdsgnlabel)  * 

then 

call  show_dsgn(t_cimumber,  pge-1)  returning  pge 
end  if 

on  key  (CONTROL-N) 
if  infield(egdsgnlabel) 
then 

call  show_dsgn(t_cimumber,  pge+l)  returning  pge 
end  if 

after  field  egdsgnlabel 

let  tmp_dsgnlbl  ■  exgp_array(curr_exgp).egdsgnlabel 
call  gen_dsgdsc(t_citnumber,  tmp_dsgnlbl) 
returiung  hoId_descript,  hold.serial 
let  exgp_array|curr_exgp|.egdsgndsc  ■  hold_descript 
let  exgp_arTay(curr_exgp|.cgdsgn  ■  hold_serial 
display  by  name  exgp_array(curr_exgp|,egdsgndsc 
display  by  name  exgp_array(curr_exgpl.egdsgn 
before  field  egsubglabel 

let  tmp_dsgn  »  exgp..arraylcurr_exgp|.cgdsgn 

call  show_subj<t_cimumbCT,  tmp_dsgn,  0)  returning  pge 

message  "Use  CNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page 
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on  key  (CONTROL-P) 

call  show_subj(t_citnumber,  tmp_dsgn,  pge-1)  returning  pge 
on  key  (CONTROL-N) 

call  show_subj(t_citnumber,  tmp_dsgn,  pge+1)  returning  pge 
after  field  egsubglabel 

let  tmp_£ubj  =  exgp_array(curr_exgp!.egsubglabcl 
call  gen_sulxlsc(t_citnumber,  tmp_dsgn,  tmp_subj) 
returning  hold_descript,  hold_senal 
let  exgp_array[curr_exgp].egsubgdsc  =  hold_descript 
let  exgp_array[curr_exgpl.egsubg  =  hold_serial 
display  by  name  exgp_array[curr_exgpl.egsubgdsc 
display  by  name  exgp_a!Tay(curr_exgp].egsubg 
before  field  egexpolabei 

call  show_expo(t_dtnumber,  tmp_dsgn,  0)  returning  pge 

message  "Use  G'JTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page  " 

on  key  (CONTROL-P) 

if  infield(egexpolabel)  then 

call  show_expo(t_citnumber,  tmp_dsgn,  pge-1)  returning  pge 
end  if 

on  key  (CONTROL-N) 

if  infield(egexpolabel)  then 

call  show_expo(t_citnumber,  exgp_arraylcurr_exgp).egdsgn,  pge+1)  returning  pge 
end  if 

after  field  egexpolabei 

let  tmp_expo  «  exgp_arrayfcurr_exgpl.egexpolabel 
call  gen_expdsc(t_citnumber,  tmp_dsgn,  tmp_expo) 
retiuning  hold_descript,  hold_serial 
let  exgp_array(curr_exgp].egexpodsc  ■  hold_descript 
let  exgp_array(curr_exgp).egexpo  «  hold.serial 
display  by  name  exgp_arTay(curr_exgpl.egexpodjC 
display  by  name  exgp_aiTay(curr_exgpj.egexpo 
let  exgp_.irray(curr_exgpl.cglink  »  "D", 

exgp_array(curr  .sxgp|.egdsgniabel  using  ".S", 

exgp_array(curr_exgpl. egsubglabel  using  ".E", 

exgp_array[curr_exgp)  .egexpolabei  using  "«" 
display  by  name  exgp_array(curr„exgpl.eglink 
end  input 

options  help  key  CONTROL-w 
ifeg-1 

then  return 
end  if 

for  cnt «  1  to  exgp_cnt  , 

insert  into  expogrp  values 

(exgp_array(cntl.egcitnumb, 

exgp_arraylcnt).egserial, 

exgp_cnt, 

exgp_aiTaylcnlI.eglink, 
exgp_array(cntl.egdsgn, 
exgp_ajTay(cntl.egdsgnlabcl, 
exgp_array(cn  t|  .egdsgndsc, 
exgp_array(cnll.cgsubg, 
exgp_aiTay(cnt|.eg5ubglabel, 
exgp_array|cnt|.cgsubgdsc, 
exgp_array(cnt|.cgexpo, 
exgp_array(cnt|. egexpolabei, 
exgp_array(cntI.cgexpodsc) 
end  for 
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select  count(*)  into  y  from  expogrp 
where  egdtnumb  =  t_citnuml^r 
update  expogrp 
set  egtotnum  =  y 
where  egcitnumb  =  ‘  citnumber 
END  FUNCTION 

FUNCTION  flnd_exgp(t_clt) 

define 

t_cit  like  exf)Ogrp.egcitnumb 
call  linkwinopenO 
case 

when  t_cit  is  null 
let  int_flag=0 

construct  queryl  on  expogrp."  from  exgp.  rec2.* 
if  int_flag  <>  0  then  return  end  if 

let  selectl  =  "select  *  from  expogrp  where  ",  « 

queryl  clipped,  "  order  by  egcitnumb,  eglink" 
let  select2  »  "select  count!*)  from  expogrp  where  ", 
queryl  clippjed 
exit  case 
otherwise 

let  selectl  ■  "select  *  from  expogrp  where  ", 

"egdtnunrUs  =  ",quote,  t_dt,  quote, 

"  order  by  egdtnumb,  eglink" 
let  select2  =  "select  count!*)  from  expogrp  where  ", 

"egdmumb  »  ",quote,  t_dt,  quote 
exit  case 
end  case 

prepare  select_exgp  from  selectl 
prepare  cnt_exgp  from  select2 
display  ""at 21,2 

display  "  Searching  ..."  at  21,2  altributevreversc) 
declare  cnt_curs  cursor  for  cnt_exgp 
foreach  cnt_curs  into  cnt 
end  foreach 

declare  eg_curs  scroll  cursor  for  select_exgp 

open  e^curs 

caJI  view_exgp{) 

close  eg_cur9 

END  FUNCTION 

#####«########«#######««###«######«#####################«#«##########«# 

FUNCTION  vl*w_exgpO 

fetch  first  eg_curs  into  T_expogrp.* 
if  status  ■  NOTFOUND 
then 

MESSAGE  "No  exposure  groups  found." 

SLEEP  1 
MESSAGE  "" 
else 

let  tmp_cnt  *  1 
display  ""  at  21,2 
call  disp_exgp() 

display  "  ",  tmp_cr*,  "  of  ",  cnt,  "  rows  found."  at  21,2 
end  if 

MENU  "BROWSE" 

COMMAND  "Nexr 
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"View  the  next  Exposure  Group  in  the  list."  HELP  170 
FETCH  NEXT  eg_curs  INTO  T_expogrp.* 
let  tmp  cnt  =  tmp_cnt  +1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Exposure  Groups  in  this  direction." 
SLEEP! 

let  tmp  cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  eg_curs  INTO  T_expogrp.* 

END  IF 

display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  21,2 
attribute(reverse) 
call  disp_exgp() 

COMMAND  "Previous" 

"View  the  Previous  Exposure  Group  in  the  list."  HELP  170 
FETCH  PREVIOUS  eg_curs  INTO  T.expogrp.* 
let  tmp_cnt  =  tmp_cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Exposure  Groups  in  this  direction." 
SLEEP  1 
MESSAGE  "" 
let  tmp_cnt  =  1 

FETCH  FIRST  eg_curs  INTO  T  expogrp.* 

END  IF 

display  ""  at  21,2 

display  "  ",tmp_cnt, "  of ",  cnt, "  rows"  at  21,2 
attribute(reverse) 
call  disD  exgpO 
COMMAND  "First" 

"View  the  first  E.xposure  Group  in  the  list."  HELP  170 
FETCH  FIRST  eg_curs  INTO  T_expogrp.* 
let  tmp_cnt  =  1 
display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of ",  cnt, "  rows"  at  21,2 
attribute(reverse) 
calldisp  exgpO 
COMMAND~"Ust" 

"View  the  Last  Exposure  Group  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  eg_curs  INTO  T_expogrp.* 
let  tmp_cnt  =  cnt 
message  "" 
display  ""  at  21,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  21,2 
attributefreverse) 
call  disp_exgp() 
command  "Update" 

"Update  Exposure  Group  Link"  HELP  171 
call  update_exgp(T_expogTp.egcitnumb,  T_exjx)grp.egserial) 
call  disp_exgp() 
command  "Delete" 

"Delete  this  entry  from  database"  HELP  805 
call  delete_exgp(T_expogrp.egcitnumb,0,T_expogrp.egserial,l) 
call  disp_exgpO 
command  "Query-Again" 

"Enter  new  search  criteria"  HELP  806 
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close  e^curs 
letci'  .^mber  =  "" 
call  find_exgp(citnumber) 
exit  menu 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
end  FUNCTION 

####################################################################### 
FUNCTION  dlsp_exgp() 
for  x  =  11  to  20 
display  ""  at  x,l 
end  for 

display  by  name  T_exjXJgrp.* 

END  FUNCTION 

###############################<'#######*############################### 

FUNCTION  update_exgp(tmp_citnumb,  tmp_egserial) 

define 

tmp_citnumb  like  expogrp.egcitnumb, 
tmp_egserial,  hold_serial  integer, 
hold_descript  like  expogrp.egdsgndsc, 
eg,  x,  y,  curr_exgp,  exgp_cnt  smallint, 
pge  integer 
let  eg=0 
input 

T_expogrp.egcitnumb, 

T_expogrp.egserial, 

T_expogrp.egdsgnlabel, 

T_expogrp.egsubglabel, 

T_expogrp.egexpolabel, 

T_expogrp.eglirik. 

T_expog;rp.egtotnum , 

T_expogrp.egdsgndsc, 

T_expogrp.egdsgn, 

T_expogrp.egsubgdsc, 

T.expogrp.egsubg, 

T_expogrp.egexpodsc, 

T_expogrp.egexpo 
without  defaults 
from  exgp_rec.* 
on  key(interrupt) 

•  let  eg=l 

exit  input 

after  field  egcitnumb 

display  by  name  T_expogrp.egcitnumb 
display  by  name  T_expogrp.egtotnum 
before  field  egdsgnlabel 

call  show_dsgn(tmp_citnumb,  0)  returning  pge 

message  "Use  CNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page" 
on  key  (CONTROL-P) 
if  infield(egdsgnlabel) 

then  call  show_dsgn(tmp_citnumb,  pge-1)  returning  pge 
end  if 

on  key  (CONTROL-N) 

_ if  infield(egdsgnlabel) _ _ 
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then  call  show_dsgn(tmp_citnumb,  pge+1)  returning  pge 
end  if 

after  field  egdsgnlabel 

call  gen_dsgdjc(tmp_citnumb,  T_expogrp.egdsgnlabel) 
returning  hold_descript,  hold_serial 
let  T_expogrp.egdsgndsc  =  hold_descript 
let  T_expogrp.egdsgn  =  hold_serial 
display  by  name  T_expogrp.egdsgndsc 
display  by  name  T_expogrp.egdsgn 
before  field  egsubglabel 

call  show_subj(tmp_citnumb,  T_expogrp.egdsgn,  0)  returning  pge 
message  "Use  QMTL-P  to  shov/  Previous  page,  CNTL-N  to  show  Next  page" 
on  key  (CONTROL-P) 

if  infield(egsubglabel)  then 

call  show_subj(tmp_citnumb,  T_expogrp.egdsgn,  pge-1)  returning  pge 
end  if 

on  key  (CONTROL-N) 

if  infield(egsubglabel)  then 

call  show_subj(tmp_citnumb,  T_expogrp.egdsgn,  pge+1)  returning  pge 
end  if 

after  field  egsubglabel 

call  gen_subdsc(tmp.dtnumb, 

T  expogrp.egdsgn, 

T_expogrp.egsubglabel) 
returning  hold_descript.  hold_serial 
let  T_expogrp.egsubgdsc  =  hold_descript 
let  T_expogrp.egsubg  =  hold_serial 
display  by  name  T_expogrp.egsubgdsc 
display  by  name  T_expogrp.egsubg 
before  field  egexpolabel 

call  show_expo(tmp_citnumb,  T_expogrp.egdsgn,  0)  returning  pge 
message  "Use  QNTL-P  to  show  Previous  page,  CNTL-N  to  show  Next  page" 
on  key  (CONTROL-P) 

if  infield(egexpolabel)  then 

call  show_expo(tmp_dtnumb,  T_expogrp.egdsgn,  pge-1)  returning  pge 
end  if 

on  key  (CONTROL-N) 

if  infield(egexpolabel)  then 

call  show_expo(tmp_dtnnmb,  T_expogrp.egdsgn,  pge+1)  returning  pge 
end  if 

after  field  egexpolabel 

call  gen_expdsc<tmp_citnumb, 

T.expogrp.egdsgn, 

T_expx)grp.egexfJolabel) 
returning  hold_descript,  hold_serial 
let  T_expogrp.egexpodsc  »  hold_descript 
let  T_expogrp.egexpxD  »  hold_serial 
display  by  name  T_expogrp.egexpodsc 
display  by  name  T_expogrp.egexpo 
let  T_expogrp.eglink  =  "D", 

T_expogrp.egdsgnlabel  using  "«",  ".S", 

T_ex|x)grp.egsubglabei  using  "«",  ",E",  , 

T_expogrp.egexpolabel  using  "«" 
display  by  name  T_expogrp.egUnk 
end  input 

options  help  key  CONTROL-w 
if  eg  *1  then  return  end  if 
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update  expogrp 

set  expogrp*  =  T_expogrp.* 
where  egdtnumb  =  tmp_citnumb 
and  egserial  =  tmp_egserial 
update  clinfind 

set  cfcitnumb  =  T_expogrp.egcitnumb, 
cfeglink  =  T_expogrp.egserial, 
cfeglabel  =  T_expogrp.eglink 
where  cfcitnumb  =  tmp_citnumb 
and  cfeglink  =  tmp_egserial 
END  FUNCTION 

####################################################################### 

FUNCTION  delete_exgp(tmp_citnumb,tmp_dsgn,  tmp_egserlal,  deljlag) 

#  de’  _flag  should  be  0  to  delete  without  prompt 

#  del  flag  should  be  1  to  delete  with  confirmation  prompt 

#  this  also  handles  global  deletes  from  clinfind  table 

define 

tmp_citnumb,t_cit  like  expogrp.egcitnumb, 
tmp_egserial,  t_eg  integer, 
tmp_dsgn,  Ldsgn  like  expogrp.egdsgn, 
del_flag  smallint 
if  del_flag  =  0 
then 
case 

when  tmp_egserial  =  0 

declare  del_eg  cursor  for 

select  egcitnumb,  egdsgn,  egserial 
from  expogrp 

where  egcitnumb  » tmp_citnumb 
and  egdsgn  =  tmp_dsgn 
foreach  del_eg  into  t_cit,  Ldsgn,  t_eg 
delete  from  expogrp 

where  egcitnumb  =  Lcit 
and  egdsgn  =  Ldsgn 
delete  from  clinfind 

where  cfcitnumb  »  Lcit 
«  and  cfeglink  =>  Leg 
end  foreach 
exit  case 

when  tmp_3gserial  <>  0 
delete  from  expogrp 

where  egcitnumb  » tmp_citnumb 
and  egserial  ■  tmp_egserial 
delete  frcm  clinfind 

where  cfcitnumb  *  tmp_citnumb 
and  cfeglink  » tmp_cgserial 
exit  case 
end  case 

else 

call  alrt260open() 

prompt  "Do  you  really  want  to  delete  this  record?  (y/N)  " 
for  answer 

on  key(interrupt) 
return 
end  prompt 
if  upshift(answer) »  "Y" 
then 
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delete  from  expogrp 

where  egdtnumb  =  tmp_dtnumb 
and  egserial  =  tmp_egserial 
select  count!*)  into  x  from  clinfind 
where  cfcimumb  =  tmp_citnumb 
and  cfeglink  =  tmp_egseriai 
if  X  >  0 
then 

call  alrt260plop() 

message  "  ",  x  using  clinical  findings  are  linked  to  this." 

prompt  "Do  you  want  to  delete  them?  (Y/N)  >  " 
for  answer 

if  upshift(answer)  =  "Y" 
then 

delete  from  clinfind 

where  cfcitnumb  =  tmp_citnumb 
and  cfeglink  =  tmp_egserial 
message  x  using  "##&",  "rows  deleted." 
sleep  2 
else 

message  "No  rows  deleted." 
sleep  2 
end  if 

end  if 

call  alrt260plcl() 
else 

message  beep,  "No  rows  deleted" 
sleep  1 
end  if 

call  alrt260closc() 
end  if 

selea  count!*)  into  x  from  expogrp 
y/here  egdtnumb  » tmp_dtnumb 
if  status  3  0 

then  update  expogrp  set  egtotnum  =  x 
where  egcitnumb  » tmp_citnumb 
end  if 

END  FUNCTION 

#########)!«####################################################### 

FUNCTION  renum_oxgp(t_cit,  t_d8gn,  t_ex) 

#  t_dsgn  ■  styserial  number#  t_sg  «  sgserial#  t_ex  »  exserial#  only  one  non-zero  number  permitted 
define 

t_dt  like  expogrp.egdtnumb, 
t_dsgn,  t_sg,  t_ex  integer, 
hold_dsgn,  hold_sg,  hold_ex,  hold_eg  integer, 
holdjink  like  expogrp.eglink 

case 

when  t_dsgn  !■  0 

select  stydsgncur  into  hold_dsgn 
from  stdydsgn 
where  styserial » t_dsgn 
update  expogrp 

set  egdsgnlabel  *  hold_dsgn 
where  egdsgn  » t_dsgn 
declare  eg_genl  cursor  for 

select  egdsgnlabel,  egsubglabel,  egexpolabel,  egserial 
from  expogrp 
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where  egdtnumb  =  t_dt 
and  egdsgn  =  t_dsgn 
for  update  of  eglink 

foreach  eg_genl  into  hold_dsgn,  hold.sg,  hold_ex,  hold_eg 
let  hold_link  =  "D",  hold_dsgn  using 
".S",  hold_sg  using 
".E",  hold_ex  using  "«" 
update  expx)grp 

set  eglink  =  hold_link 
where  current  of  eg_geril 
update  dinfind 

set  cfeglabel  =  hold_link 
where  cfcitnumb  =  t_cit 
and  cfeglink  =  hold_eg 
end  foreach 
exit  case 
when  t_sg  !=«  0 

select  sglink  into  hold_sg 
from  subjgrp 
where  sgserial » t_sg 
ufxiate  expogrp 

set  egsubglabel  =  hold.sg 
where  egsubg  a  t_sg 
declare  eg_gen2  cursor  for 

select  egdsgnlabel,  egsubglabel,  egexpolabel 

from  expogrp 

where  egdtnumb  *  t_dt 

and  egdsgn  *  t_sg 

for  update  of  eglink 

foreach  eg_gen2  into  hold.dsgn,  hold_sg  hold_ex 
let  hold_lii\k  ■  "D",  hold_dsgn  using 
".S",  hold_sg  using 
".E",  hold_ex  using  "«" 
update  expogrp 

set  eglink  »  holdjink 
where  current  of  eg_gen2 
update  dinfind 

set  cfeglabel  ■  hold.link 
where  cfcirnumb  ■  t_cit 
and  cfeglink  ■  hold_eg 
end  foreach 
exit  case 
when  t_ex !«  0 

select  exlink  into  hold_ex 
from  exporegm 
where  exserial  » t_ex 
update  expogrp 


set  egexpolabel «  hold_ex 
where  egexpo  ■  t_ex 

declare  eg_gen3  cursor  for 

select  egdsgnlabel,  egsubglabel,  egexpolabel 

from  expogrp 

where  egdmurnb  ■  t_dt 

and  egdsgn  » t_ex 

for  update  of  eglink 

foreach  eg_gen3  into  hold.dsgn,  hold.sg,  hold.ex 
let  hold_link  ■  "D",  hold_dsgn  using  "«", 
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".S",  hold_sg  using 
".E",  hold_ex  using  "«" 
update  expogrp 

set  eglink  =  holdjink 
where  current  of  eg_gen3 
update  clinfind 

set  cfeglabel  =  hold_link 
where  cfcitnumb  =  t_cit 
and  cfeglink  =  hold_eg 
end  foreach 
exit  case 
otherwise 

error  "The  progranuner  blew  it  here!" 
sleep  3 
exit  case 
end  case 
end  function 
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#tl<scfind.4gl 

{TITLE:  tkscfind.4gl 

Copyright,  Harold  L.  Trammel,  1987-1989 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Purpose:  to  provide  entry  mechanism  for  clinical  findings 
Contains  the  following  FUNCTIONS: 
find_control(t_cit) 
add_find(tmp_dtnumb) 
find_cfind(t_cit) 
view_cfind() 
disp_cfind(tmp_serial) 
update_cfind(tmp_serial) 
renum_cfind(cf_cit,  cf_oldeg,  cf_nfcweg) 
delete  cfind(cf_serial,cf  flag) 

) 

database  tkstest 
globals  "tksglob.4gl" 

FUNCTION  flnd_control(t_ctt) 

define  t_cit  like  clinfind-cfcitnumb 

call  add_find(t_cit) 

END  FUNCTION 


###################«##################«########################### 

FUNCTION  add_ftncl(tmp_citnumb) 

define 

tmp_sitecode  char(8), 
holdsitenum,  holdhndnum  char(8), 
holdsiteterm,  holdfindterm  char(70), 
dsgn  like  expogrp.egdsgndsc, 
subg  like  expogrp.egsubgdsc, 
expo  like  expogrp.egexpodsc, 
link  like  expogrp.eglink, 
tmp_eg3erial  integer, 
tmp_value,  tmp_sys  chard ), 
tmp_change,  t_ch^ge  like  clinfind.cfchange, 
tmp_citnunvb,  t_cit  like  clinfind.cfcitnumb, 
tmp_findcode  like  dinfind-cffindcode, 
tmp_eglink  like  clinfind-cfeglink 
call  cfwinopenO 
let  cw«0 

let  tmp_egserial*0 
for  cnt  ■  1  to  50 

initialize  cf_array[curr_arrl.*  to  null 
end  for 

call  set_count(50) 
input  array  cf_array  from  cf_list.* 
on  key(interrupt) 
let  cw  »1 
exit  input 
on  key(control-p) 
case 


when  infield(cfcitnumb) 
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let  cf_array[curr_arrJ.cfdtnumb=T_clinfind.cfcitnumb 
next  field  cfeglink 
when  infield(cfeglink) 

let  cf_array[curr_arrl.cfeglink=T_clinfind.cfeglink 
next  field  cfsitecode 
when  ii\field(cfsitecode) 

let  cf_array[curr_arr].cfsitecode=T_clinfind.cfsitecode 
next  field  cffindcode 
when  infield(cffindcode) 

let  cf_array[curr_arrl.cffindcode=T_clinfind.cffindcode 
next  field  cfchange 
when  infield(cfchange) 

let  cf_arTay[curr_arrl.cfchange=T_clinfind.cfchange 
next  field  cfsevvalue 
when  infield(cfsevvalue) 

let  cf_aiTay(curr_arrl.cfsevvalue=T_clinfind.cfsevvalue 
next  field  cfsevunits 
when  infield(cfsevunits) 

let  cf_array{cu!T_arrl.cfsevunits=T_clinfind.cfsevunits 
next  field  cffreq 
when  infield(cffreq) 

let  cf_array[curr_arr].cffreq=T_clinfind.cffreq 
next  field  cfonset 
when  infield(cfonset) 

let  cf_array[curr_aiTl.cfonset=T_clinfind.cfonset 
next  field  cfduration 
when  infieldfcfduration) 

let  cf_array[curr_arr].dduration=«T_clinfind.cfduration 
next  field  cfonset 
end  case 

before  field  cfdtnumb 
tfinitial  displays 
message  "" 

display  ""  to  egdsgndsc 
display  ""  to  egsubgdsc 
display  ""  to  egexpodsc 
display  ""  to  change 
let  curr_arr  »  arr_currO 
if  cuiT_arr  >  0 

then  let  T_dinfind.*  »  cf_array(curr_arr].* 
end  if 

if  tmp_dtnumb  is  not  null 
uien 

let  cf_aiTay(curr_arr).cfdlnumb  » tmp_dtnumb 
let  cf_aiTay(curr_arrl.cfserial  a  0 
display  by  name  cf_array(curr_an'l.cfcitnumb 
next  field  cfeglink 
end  if 

after  field  cfdmumb 

if  cf_arrayIcurT_arr|.cfcitnumb  is  null 
then 

error  "You  must  have  aOTATION  number" 
next  field  cfdtnumb 
if 

display  by  name  cf_array(curr_anr|.cfcitnumb 
if  cf_array[curr_arr].cfcimumb  <>  tmp_citnumb 
then 
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let  t_cit  =  cf_array(curr_aiTl.clcitnumb 
call  exist_dtnumb(t_cit)  returning  x 
if  X  =  0  then 

error  "CITATION  data  not  entered  for  this  number" 
next  field  cfcitnumb 
end  if 

end  if 

before  field  cfeglink 
let  tmp_egserial  =  0 

message  beep,  "Press  F7  or  CNTL-G  to  see  available  Exposure  Groups" 
on  key(F7,  control-g) 
if  infield(cfeglirrk) 
then 

let  t_dt  =  cf_array[curr_arrl.cfcitnumb 
call  see_eg(t_dt) 

retunung  link,  tmp_egserial,  dsgn,  subg,  expo 
display  tmp_egserial  to  cfeglink  . 
display  lirrk  to  cfeglabel 
end  if 

after  field  cfeglink 

if  tmp_eg?erial  <>  0 
then 

let  cf_array[curr_arr]  .cfeglink  =  tmp_egserial 
end  if 

select  egdsgndsc,  egsubgdsc,  ege\podsc,  eglink 

into  dsgn,  subg,  expx),  cf_array{cuiT_arr].cfeglabel 
from  expogrp 

where  egseii^  »  cf_array(curr_arrj.cfeglink 
if  status  ■  NOTFOUND  then 

error  'T'Jo  entry  for  this  Exposure  Group  Number" 
next  field  cfeglink 
end  if 

display  by  name  cf_array(curr_arr|  .cfeglink 
display  by  name  cf_array(curr_arr].cfeglabel 
display  dsgn  to  egdsgndsc 
display  subg  to  egsubgdsc 
display  expo  to  egexpodsc 
before  field  cftype 

display  "  M  «  Pathology  Results"  at  15,40  attribute(reverse) 
display  "  L  ■  Lab/rro».edure  Results"  at  16,40  attributefreverse) 
display  "  S  *  Signs/Disease  Finding"  at  17,40  attributefreverse) 
after  field  cftype 
for  X  «  15  to  17 

display  ""  at  x,40 
end  for 

if  (cf_array[curr_aiTj. cftype  <>  "M"  and 
cf_array(curr_arrj. cftype  <>  "L"  and 
cf_array(curr_arrl.cftype  <>  "S") 
then 

error  beep,"Wrong  choice!" 
next  field  cftype 
end  if 

before  field  cfsitecode 
let  chosen  «  0 
case 

when  cf_aiTay(curr_arrl.cftype  ■  "M" 

call  pick_site<)  returningholdsitcr.um,  holdsitetcrm 


i :  .  V  ‘  *  V  -  TolUh  Knowledge  System  Source  Code 


exit  case 

when  cf_array[curr_arr].cftype  =  "L" 

call  matrix_choice()  returning  tmp_value 
call  matrix_trans(tmp_value) 

returning  holdsitenum,  holdsiteterm 
exit  case 

when  cf_arraylcurr_arr].cftype  =  "S" 

call  system_choice()  returning  tmp_value 
call  system_trans(tmp_value) 

returning  holdsitenum,  holdsiteterm 
exit  case 
end  case 
if  chosen  =  0 
then 

let  cf_array(curr_arrl.cfsitecode  =  holdsitenum 
let  cf_array[curr_.arrj.cfsite  =  holdsiteterm 
display  by  name  cf_array[curr_arr].cfsitecode 
display  by  name  cf_array(curr_aiT).ctsite 
next  field  cffindcode 

else 

next  field  cftype 
end  if 

before  field  cffindcode 
let  chosen  =  0 
case 

when  cf_aiTay[curr_arrl.cftype  a  "M" 
call  pick_path() 

returning  holdfindnum,  holdfindterm 
exit  case 

when  cf_array[curT_arrl.cftype  »  "L" 
call  pickJabO 

returning  holdfindnum,  holdfindterm 
exit  case 

when  cf_array(curr_arr].cftype  =  "S" 

let  tmp_sys  *  cf_array{curr_arrj.cfsitccode  clipped 
call  pick_sign(tmp_sys) 

returning  holdfindnum,  holdfindterm 
exit  case 
end  case 
if  chosen  »  0 
then 

let  cf_array(curr_arrJ.cffindcode  ■  holdfindnum 
let  cf_aiTay(curr_arr).cffinding  »  holdfindterm 
display  by  name  cf_array(curr_arr|. cffindcode 
display  by  name  cf_array[cuiT_arr).cffinding 
next  field  cfchange 
else 

next  field  cfsitecode 
end  if 

before  field  cfchange 

call  change_choice<)  returning  cf_array(curr_atT). cfchange 
after  field  cfchange 

let  t_change  ■  cf_array(curr_arr|.cfchange 
call  trans_change(t_change)  returning  tmp_change 
display  tmp_change  to  change 
display  by  name  cf_array(curr_arr).cfchange 
end  input _ 
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if  cw  =  1  then  return  end  if 
for  X  =  1  to  aiT_count() 

insert  into  dinfind  values(cf_array(x).*) 
end  for 


END  FUNCTION 

FUNCTION  find_cflnd(t_clt) 

define 

t_cit  like  dinfind.cfcitnumb 
call  cfwinopenO 
let  int_flag=0 
construct  queryl 
on 


cfcitnumb, 

cfsitecode, 

cfsite, 

dfindcode, 

cffinding, 

cfeglink, 

cfchange, 

cfsevvalue, 

cfsevunits, 

cffreq, 

cfonset, 

cfduration 

from 

cfcitnumb, 

dsitecode, 

dsite, 

cffindcode, 

cffinding, 

cfeglink, 

cfchange, 

cfsevvalue, 

cfsevunits, 

cffreq, 

cfonset, 

cfduration 

if  int_flag  <>  0  then  return  end  if 

let  selectl  »  "select  *  from  dinfind  where  ", 

queryl  clipped,  "  order  by  cfcimutnb,  cfeglink" 
let  select2  ■  "select  count!*)  from  dinfind  where  ",  queryl  dipped 
prepare  select_cfind  from  selectl 
prepare  cnt_cfind  from  select2 
display  ""  at  20,2 

display  "  Searching ..."  at  20,2  attribute! reverse) 
declare  cnt_curs  cursor  for  cnt_cfind 
foreach  cnt_cur3  into  cnt  end  foreach 
declare  d_curs  scroll  cursor  lor  select_cfind 
open  cf_cur5 
call  view_cfind!) 
close  cf  curs 
END  FUNCTION 

FUNCTION  vl«w_cflnd() 

fetch  first  cf  curs  into  T  dinfind.* 
if  status  -  NOTFOUND" 
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then 

MESSAGE  "No  clinical  findings  found." 

SLEEP  1 
MESSAGE  "" 

else 

let  tmp_cnt  =  1 

call  disp_cfind(T_clinfind.cfserial) 
display  ""  at  20,2 

display  "  ",  tinp_cnt,  "  of  ",  cnt, "  rows  found."  at  20,2 
end  if 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Clinical  Finding  in  the  list."  HELP  170 
FETCH  NEXT  cf  .curs  INTO  T_dinfind.* 
let  tmp_cnt  =  tmp_cnt  +1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Qinical  Findings  m  this  dnection." 
SLEEP  1 

let  tmp_cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  cf_curs  INTO  T_clinfind.* 

END  IF 

display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  r&ws"  at  20,2 
attnbutefreverse) 
call  disp_cfind(T_clinfind.cfserial) 

COMMAND  "Previous" 

"View  the  Previous  Qirucal  Finding  in  the  list."  HELP  170 
FETCH  PREVIOUS  cf.curs  INTO  T.clinfind.* 
let  tmp_cnt »  tmp_cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  Oinicai  Rndings  ir;  this  direction." 
SLEEP  1 
MESSAGE  "" 
let  tmp_cnt  ■  1 

FETCH  HRST  cf.curs  INTO  T  clinfind.* 

END  IF 

display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of ",  cnt,  "  rows"  at  20,2 
attributefreverse) 
call  disp  cfind(T_clinfind.cfseriai) 

COMMAND""First" 

"View  the  first  Ginicai  Finding  in  the  list."  HELP  170 
FETCH  FIRST  cf_curs  INTO  T_clinfind.* 
let  tmp_cnt  ■  1 
display  ""  at  20,2 

display  "  ",tinp_cnt,  "  of ",  cnt, "  rows"  at  20,2 
attributefreverse) 
call  disp  cfind(T_clinfind.cfserial) 

COMMAND'"Last" 

"View  the  Last  Clinical  Finding  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LA.ST  cf.curs  INTO  T_clinfind.* 
let  tmp_cnt  ■  cnt 
message  "" 
display  ""  at  20,2 

display  "  ",tmp_cnt,  "  of  ",  cnt,  "  rows"  at  20,2 
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attributelreverse) 
call  disp_cfind(T_dinfind.cf5erial) 
COMMAND  "Update" 

"Update  Qinical  Finding^'  HELP  171 
call  update_cfind(T_clinfind.cfserial) 
COMMAND  "Delete" 

"Delete  this  entry  from  database"  HELP  1003 
call  delete_cfind(T_dinfind.cfserial,0) 
COMMAND  "Query-Again" 

"Enter  new  search  criteria"  HELP  1004 

close  cf_curs 

let  citnumber  -  "" 

call  find_cfind(i  .tnumber) 

exit  menu 

COMMAND  "Exir  "Leave  this  menu"  HELP  2 
dose  cf_curs 
EXIT  MENU 
END  MENU 
EN  D  FUNCTION 

FUNCTION  dlsp_cilnd(tmp_sarlal) 

define 

tmp_aim  chart20), 
dsgn  like  expogrp.egdsgndsc, 
subg  like  expogrp.egsubgdsc, 
expo  like  expogrp.egexpodsc, 
tmp_serial  integer, 
x  s>nallint 

display  by  name  T_clinfind.* 

#  need  clinfind  change  translation  call  here 
select  egdsgndsc,  egsubgdsc,  egexpodsc 
into  dsgn,  subg,  expo 
from  expogrp 

where  egserial «  T_clintind.cfeglink 
display  dsgn  to  egdsgndsc 
display  subg  to  egsubgdsc 
display  expx)  to  egexpodsc 
END  FUNCTION 

FUNCTION  updat«_cflnd(tmp_s«  al) 

define 

tmp_sitecode  char(8), 
hoidsitenum,  holdhndnum  c  (8), 
holdsiteterm,  holdfindterm  cnar(70), 
dsgn  like  expogrp.egdsgndsc, 
subg  like  expogrp.egsubgdsc, 
expo  like  expogrp.egexpodsc, 
link  like  expogrp.eglink, 
tmp_egserial,  tmp_serial  integer, 
tmp_ value,  tmp_sys  chard ), 
tmp_change  like  clinfind.cfchange, 
tmp_citnumb  like  clinfind.cfcitnumb, 
tmp.findcode  like  clinfind.cffindcode, 
tmp_eglink  like  c'inflnd.cfeglink 
let  c’v»0 

let  tmp_citnumb  ■  T_clinfind.cfdtnumb 
input  T_clinfind.* 
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without  defaults  from  cf_list.* 
on  key(interrupt) 
let  cw  =1 
exit  input 

before  field  cfdtnumb 
message  "" 

display  ""  to  egdsgndsc 
display  ""  to  egsubgdsc 
display  ""  to  egexpodsc 
display  ""  to  change 
display  by  name  T_clinfind.cfcitnumb 
after  field  cfdtnumb 

if  T_clinfind.cfcitnumb  is  null 
then 

error  "You  must  have  a  CITATION  number" 
next  field  cfdtnumb 
end  if 

if  T_clinfind.cfcitnumb  <>  tmp_citnumb 
then 

call  exist_dtnumb{T  clinfind-cfdtnumb)  returning  x 
ifx  =  0 
then 

error  "CITATION  data  not  entered  for  this  number" 
next  field  cfdtnumb 
end  if 

end  if 

before  field  cfeglirdc 

message  beep,  "Press  F7  or  CNTL-G  to  see  available  Exposure  Groups" 
on  key(F7,  control-g) 
if  infield(cfeglink) 
then 

call  see_eg(T_dinfind.cfcitnumb) 

returning  link,  tmp_egserial,  dsgn,  subg,  expo 
display  tmp_egserial  to  cfeglink 
display  link  to  cfeglabel 
end  if 

after  field  cfeglink 

if  tmp_egserial  <>  0  then 

let  T_clinfind.deglink  =  tmp_egserial 
end  if 

select  egdsgndsc,  egsubgdsc,  egexpodsc,  eglink 
into  dsgn,  subg,  expo,  T_clinfind.cfeglabel 
from  expogrp 

where  egserial  =  T_clinfind.cfeglink 
if  status  =  NOTFOUND  then 

error  "No  entry  for  this  Exposure  Group  Number" 
next  field  cfeglink 
end  if 

display  by  name  T_clinfind.cfeglink 
display  by  name  T_clinfind.cfeglabel 
display  dsgn  to  egdsgndsc 
display  subg  to  egsubgdsc 
display  expo  to  egexpodsc 
before  field  cftype 

display  "  M  =  Pathology  Results"  at  15,40  attributefreverse) 
display  "  L  =  Lab/Procedure  Results"  at  16,40  attribute(reverse) 
display  "  S  =  Signs/Disease  Finding"  at  17,40  attribute(reverse) 
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after  field  cftype 
forx  =  15  to  17 

display  ""  at  x,40 
end  for 

if  (T_dinfind.cftype  <>  "M"  and 
T_clii\find.cftype  <>  "L"  and 
T_clii\find. cftype  <>  "S") 
then 


error  beep/'Wrong  choice!" 
next  field  cftype 
end  if 

before  field  cfsitecode 
case 

when  T_clinfind. cftype  =  "M" 

call  pick_site()  returning  holdsitenum,  holdsiteterm 
exit  case 

when  T_clinfind.cftype  =  "L" 

call  naatrix_choice()  returning  tinp_value 
call  matrix_trans(tmp_value) 

returning  holdsitenum,  holdsiteterm 
exit  case 

when  T_clinfind.cftype  =  "S" 

call  system_choice()  returning  tmp_value 
call  system_trans(tmp_vaiue) 

returning  holdsitenum,  holdsiteterm 
exit  case 
end  case 
if  chosen  =  0 
then 

let  T_clinfind  cfsitecode  =  holdsitenum 
let  T.clinfina.cfsite  =  holdsiteterm 
display  by  name  T_clinfind.cfsitecode 
display  by  name  T_clinfind.cfsite 
next  field  cffindcode 

else 

next  field  cftype 
end  if 

before  field  cffindcode 
case 

when  T_clinfind.cftype  »  "M" 
call  pick_path() 

returning  holdfindnum,  holdfindterm 
exit  case 

when  T_clinfind .cftype  *  "L" 
call  pickJabO 

returning  holdfindnum,  holdfindterm 
exit  case 

when  T_clinfind.cftype  =  "S" 

let  tmp_3ys  »  T_clinfind.cfsitecode 
call  pick_sign;i'mp_sys(ll) 

returning  holdfindnum,  holdfindterm 
exit  case 
end  case 
If  chosen  »  0 
then 

let  T_clinfind.cffindcode  ■  holdfindnum 
let  T_clinfind.cffinding  »  holdfind  term 
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display  by  name  T_clinfind.cffindcode 
display  by  name  T_clinfind.cffinding 
next  field  cfchange 


next  field  cffindcode 
end  if 

before  field  cfchange 

call  change_choiceO  returning  T_clinfind.cfchange 
after  field  cfchange 

call  trans_change(T_clinfind.cfchange)  returning  tmp_change 
display  tmp_change  to  change 
display  by  name  T_clinfind.cfchange 
end  input 

if  cw  =  1  then  return  end  if 
update  clinfind 

set  clinfind.*  =  T_clinfind.* 
where  cfserial  =  tmp_serial 
END  FUNCTION 

################################################################## 

FUNCTION  renum_cflnd(cf_clt,  cf_oldeg,  cf_neweg) 

#  renumbers  the  eglinks  after  deletes  or  updates  of  eglink 

#  currently  this  is  managed  by  renum_exgp()  in  tksexpgrp.4gl 

define 

cf_cit  like  dinfind.cfcitnumb, 
cf_oldeg,  cf_neweg  like  clinfind-cfeglink 
update  clinfind 

set  cfeglink  =  cf_neweg 
where  cfcitnumb  =  cf_dt 
and  cfeglink  a  cf  oldeg 
END  FUNCTION 

FUNCTION  delete_cflnd(cf_serlal,cfjlag) 

#  to  delete  all  cfinds  for  a  given  eglink,  cf.fiag  *  0 

#  otherwise  pass  through  the  actual  cf_flag,  cf_5erial 

define 

cf_serial  integer, 
cf_flag  smallint 
if  cf_flag  =  0 
then 

delete  from  clinfind 

where  cfserial »  cf_serial 
else 


call  alrt260open() 

prompt  "Are  you  sure  you  want  to  delete  this  record?  (y/N)  " 
for  answer 

if  upshift(answer)  *  "Y" 
then 

delete  from  clinfind 

where  cfserial  =  cf_serial 
else 


message  "No  row  deleted." 
sleep  1 
end  if 


call  alrt260close<) 
end  if 

END  FUNCTION 
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#tkscfget.4gi 

(TITLE:  tkscfget.4gl 

Copyright,  Harold  L.  Trammel,  1987-1989 

University  of  Illiois,  CVM,  lAPIC 

Funded  by  US  Army  Contract  DAMD  i7-C'7114 

Purpose:  to  provide  selction  mechanism  for  clinical  findings  from  controlled  clinical  vocabulary 
Contains  the  following  functions: 
pick_path() 
pick_iab() 
pick_sign(  tmp_sys) 
pick_site() 
see_organ(  tmp_sys) 
see_locate(tmp_sys,  tmp_org) 
see_eg<tmp_cit) 

) 

database  tkstest 
glcbals  "tksglob.4gl" 

################################################################## 
FUNCTION  pIckjjathO 
define 

T_path  record 

morphcode  like  morphsynlst.morphcode, 
morphname  like  morphsynlst.morphsyn 
end  record 
call  synwinopenO 
let  int_flag  =  0 

construct  query  1  on  morphsyn  from  finding 
if  int_flag  <>  0  then  return  end  if 

let  selectl=  "Select  nwrphcode,  morphsyn  from  morphsynlst  where  ", 
queryl  clipped 

prepare  find.morph  from  selectl 
display  "Searching...."  at  21,2 
declare  morph_curs  cursor  for  find_morph 
let  counter  ^  1 

foreach  morph_curs  into  msyn_array(counterj.* 
let  counter  =  counter  +  1 
if  counter  >  50  then  exit  foreach  end  if 
end  foreach 


when  counter  » 1 

message  "No  rows  found"  attribute(reverse) 
sleep  2 

#  need  something  better  to  handle  no  find's 
let  chosen  ■  1 

let  T_path.morphcode  »  "null" 
let  T_path.inorphname  *  "null" 
exit  case 

when  counter  »  2 

let  T_path.*  ■  msyn_array(l].* 
exit  case 
otherwise 

call  set_count(counter  - 1) 
display  array  msyn_array  to  holder.* 
on  key(interrupt) 
exit  display 
end  display 
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let  counter  =  arr_curr() 
let  T_path.*  =  msyn_array[counter].* 
exit  case 
end  case 

select  morphterm  into  T_path.morphname 
from  morphlst 

where  morphnum  =  T_path.morphcode 
call  s)mwincloseO 

return  T_path.morphcode,  T_path.morphname 
END  FUNCTION 

################################################################## 
FUNCTION  pIckJabO 
define 

T_lab  record 

labcode  like  labsynlst.labcode, 
labname  like  labsynlst.labsyn 
end  record, 
tmp_sys  chard) 
call  synwinopenO 

call  labCatChoiceO  returning  tmp_sys 
let  int_flag  *  0 

construct  queryl  on  labsyn  from  finding 
if  int_flag  <>  0  then  return  end  if 

let  selectl*  "Select  labcode,  labsyn  from  labsynlst  where  ", 
queryl  clipped,  "  and  labsynsys  =  ",  quote,  tmp_sys,  quote 
prepare  find_lab  from  selectl 
display  "Searching...."  at  21,2 
declare  lab_curs  cursor  for  find_lab 
let  counter  =«  1 

foreach  lab_curs  into  lsyn_array(counterl.* 
let  counter  =  counter  +  1 
if  counter  >  50  then  exit  foreach  end  if 
end  foreach 
case 

when  counter  =  1 

message  "No  rows  found"  attributefreverse) 

sleep  2  » 

#  need  son\ething  better  to  handle  no  find's 

let  chosen  » 1 

let  TJab.labcode  *  "null" 

let  TJab.labname  »  "null" 

exit  case 

when  counter  =  2 

let  T_lab.*  =»  lsyn_array[ll.* 
exit  case 
otherwise 

call  set_count(counter  - 1) 
display  array  lsyn_array  to  holder.* 
on  key(interrupt) 
exit  display 
end  display 
let  counter  =*  arr_curr() 
let  T_lab.*  » lsyn_array[counterJ.* 
exit  case 
end  case 

select  labterm  into  TJab.labname 
from  lablst 
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where  labnum  =  TJab.labcode 
call  synwincloseO 

return  TJab.labcode,  TJab.labname 


END  FUNCTION 

################################################################## 
FUNCTION  pick_sign(lmp_sys) 


define 

T_sign  record 

signcode  like  signsynlst.signcode, 
signname  like  signsynlst.signsyn 
end  record, 
tmp_sys  chard) 
call  synwinopenO 
let  int_flag  »  0 

construct  queryl  on  signsyn  from  finding 
if  int_flag  <>  0  then  return  end  if 

let  selectla  "Select  signcode,  signsyn  from  signsynlst  where  ", 

"  signsynsys  »  ",  quote,  tmp_sys,  quote, "  and  ",  queryl  dipp)ed 
prepare  find_sign  from  selectl 
display  "Searching..,."  at  21,2 
declare  sign_curs  cursor  for  find_sign 
let  coimter  « 1 

foreach  3ign_curs  into  ssyn_array(counterl.* 
let  counter  =  counter  +  1 
if  counter  >  50  then  exit  foreach  end  if 
end  foreach 
case 

when  counter  « 1 

message  "No  rows  found"  attributefreverse) 
sleep  2 

#  need  something  better  to  handle  no  find's 
let  chosen  » 1 

let  T_sign.signcoae  *  "null" 
let  T_sign.signname  =  "null" 
exit  case 

when  counter  »  2 

let  T_sign.*  »  ssyn_array[ll.* 
exit  case 
otherwise 

call  set_count(counter  - 1) 
display  array  ssyn_array  to  holder.* 
on  key(interrupt) 
exit  display 
end  display 
let  counter  »  arr_curr() 
let  T_sign,*  «  ssyn_array(counter).* 
exit  case 
end  case 

select  sign  into  T_sign.signname 
from  signlst 

where  signnum  ■  T_sign.signcode 
call  synwincloseO 

return  T  sign.signcode,  T  sign.signname 
END  FUNCTION 

FUNCTION  pIcMIteO 
define 
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T_site  record 
syschaKl), 
org  char(3), 
loc  char(5), 

sitecode  like  tkssite-sitecode, 
locatename  like  tkssite.locatename 
end  record, 
tmp_value  chard), 

tinp_systen\name  like  tkssite.systemname, 
tmp_organname  like  tkssite.organname 
open  window  picksite  at  3,3  with  form  "tkssite" 
attributefborder,  reverse) 
input  T_site.*  from  inputer* 
before  field  sys 

caU  system_choice()  returning  tmp_value 
call  system_trans(tmp_value) 

returning  T_site.sys,  tmp_systemname 
message  'Tress  RETuIrN  to  select  Organ  or  Organ  Group." 
after  field  sys 

display  by  name  T_site.sys 

display  tmp_systemname  to  choicename 

message"" 

call  see_organ(T_site.sys)  returning  T_site.org,  tmp_organname 
message  "Press  RETURN  to  select  Specific  Organ  Site." 
after  field  org 

display  by  name  T_site.org 
display  tmp_organname  to  choicename 
message  "" 

call  seeJocate<T_site.sys,  T_site.org) 

returning  T.site.loc,  T_slte.!ocatename 
message  "Press  RETURN  to  create  Site  Code." 
after  field  loc 

display  by  name  T_site.loc 
display  T_site.locatename  to  choicename 
message  "Press  ESC  to  main  module." 
let  T_site.sitecode  »  T_site.sys  clipped,  T_site.loc  clipped 
display  T_site.sitecode  to  choice 
end  input 

close  window  picksite 

return  T  site.sitecode,  T  site.iocatename 

END  FUNCTION 

################«###«#######«#«##########«#«##««««#«###«######«### 
FUNCTION  se«_organ(tmp_sys) 
define 

tmp_sys  chard), 
holdcx^e  like  tkssite.organcode, 
holdname  like  tkssite.organname, 
list_org  ARRAY[501  of  record 
code  like  tkssite.organcode, 
organ  like  tkssite.organname 
end  record 

declare  see_organ  cursor  for 

select  organcode,  organname  from  tkssite 
where  systemcode  ■  tmp_sys 
and  locatecode  ■  " — " 
order  by  1 

display  ""  at  21.3 _ 
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display  "Searching ..."  at  21^ 
let  counter  » 1 

foreach  see_organ  into  list_org[counter].* 
let  counter  *  counter  +  1 
if  counter  >  50  then  exit  foreach  end  if 
end  foreach 

display  "Use  arrows  to  scroll  up  and  down.Press  ESC  to  select  item."  at  213 

call  set_count(counter-l) 

aisplay  array  list_org  to  holder.* 

let  counter  »  arr_curr() 

let  holdcode  *  list_org{counterj.code 

let  holdname  » list_orgIcounter]  .organ 

return  holdcode,  holdname 

END  FUNCTION 

FUNCTION  seeJocate(tmp_sys,  lfnp_org) 

define 

tmp_sys  chard), 
tmp_org  char<3), 
holdcode  like  tkssite.locatecode, 
holdname  like  tk3site.locatename, 
listjoc  ARRAYI501  of  record 
code  like  tkssiteJocatecode, 
locate  like  tkssite.locatename 
end  record 

declare  seejocate  cursor  for 

select  locatecode,  locatename  from  tkssite 
where  systemcode  ■  tmp_sys 
and  organcode  » tmp_org 
order  by  1 
display  ""  at  21,3 
display  "Searching ..."  at  213 
let  counter  « 1 

foreach  seejocate  into  listjoctcouater].* 
let  counter  »  counter  -►  1 
if  counter  >  50  then  exit  foreach  end  if 
end  foreach 

display  "Use  arrows  to  saoll  up  and  down.Press  ESC  to  select  item."  at  213 

call  set_count(counter  -1) 

display  array  listjoc  to  holder.* 

let  counter  ■  arr_curr<) 

let  holdcode  <■  list  Jodcounterl.oode 

let  holdname  ■  list_locicounter]Jocate 

return  holdcode,  holdname 

END  FUNCTION 

###################«##««#«#«««##««#«###«««#####«#«##««##»««####### 

FUNCTION  8e*_*g(tmp_ctl) 

dehne 

tmp_cit  like  expogrp.egcimumb, 

T_eg  record  like  expogrp.*, 
eg_array  ARRAY(20J  of  record 
cglink  like  expogrp.eglink, 
egserial  like  exjxtgrp.egserial, 
egdsgndsc  like  expogrp.egdsgndsc, 
egsubgdsc  like  expogrp.egsubgdsc, 
egexpodsc  like  expogrp.egexpodsc 
end  record. 
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holdlink  like  expogrp.eglink, 
holdserial  like  expogrp.egserial, 
holddsgn  like  expogrp.egdsgndoc, 
holdsubg  like  expogrp.egsubgdsc. 
holdexpo  like  expogrp.egexpodsc 
declare  eg_curs  cursor  for 
select  *  from  expogrp 
where  sgdtnunib  =  tmp  dt 
if  status  »NOTFOUND 


then  return  0,0, 0,0 


end  if 


let  counter  » 1 


foreach  eg_cxirs  into  T_eg  • 

let  eg_array(counter].eglink  »  T_eg.eglink 
let  eg_array(counter].egserial «  T_eg.egserial 
let  eg_aiTay(counterl.egdsgndsc  *  T_eg.egdsgndsc 
let  eg_array[counterl.egsubgdsc  ■  T_eg.egsubgdsc 
let  eg_array(coimterl.egexpodsc  »  T_eg.egexpodsc 
let  counter  »  counter  +1 


if  counter  >  T_eg.egtotnum  then  exit  foreach  end  if 
end  foreach 


open  window  see_eg  at  5,12  with  form  "tksegl* 
attribute  (border) 


display  "Use  arrows  to  scroll  up  and  down.Press  ESC  to  select  item"  at  183 
call  set.counK  counter  -1) 


display  by  nan«  T_eg.egtotnum,  T.eg.egdtnumb 
display  array  eg_array  to  exgp_rec.* 
let  counter  »  arr_curr() 
let  holdlinkseg_array[counter].eglink 
let  holdserial»eg_array  [counter]. egserial 
let  holddsgn»eg_array{counter].egdsgndsc 
let  holdsubg»eg_array[counter].egsubgdsc 
let  hoidexpo»eg_array(counterl.egexpodsc 
close  window  see_eg 

return  holdlink,  holdserial,  holddsgn,  holdsubg,  holdexpo 
END  FUNCTION 
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#tksmon1.4gi 

{ 

TITLE:  tksmonogl.4gl 

Copyright,  1987-1988  University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 
single_mono() 
out  mono(c_num) 

) 

database  tkstest 
globals  "tksglob.4gl" 

FUNCTION  raport  cntl() 

MENU  -rKS-MONCr 
COMMAND  “Abstract" 

“Generate  a  Structured  Abstract  for  a  Given  Citation" 
call  single_mono() 

COMMAND  "Generic" 

"Generate  a  Monograph  for  a  Given  Generic" 
call  generic_monoO 
COMMAND  "Biblography" 

“Gei^erate  a  list  of  papers  in  TKS  database" 
callbiblio  listO 
COMMAND  "Exit" 

EXIT  MENU 
END  MENU 
END  FUNCTION 

#####«#«########««##########«###«««'<«««#«#«#«#«««««###««###«#«# 
FUNCTION  slngla_monoO 

defir-e 

t  cit  like  dtaticn.dtnumb 
menu  “PAPER- ABSTRACT" 

COMMAND  "Generate" 

“Generate  a  new  monograph  for  a  single  paper"  HELP  1 
call  select_src<)  returning  t_dt 
if  t_dt  is  null 
then  return 
end  if 
clear  saeen 

display  "Preparing  Monograph..."  at  10, 20 
attributefreverse) 
call  out_mono(t_dt) 
clear  screen 
run  'less  mngrph.out" 

COMMAND  "Print" 

"Print  hard  copy  of  current  monograph"  HELP  1 
clear  screen 

display  "Printing  Output  Now..."  at  10,20 
attributefreverse) 
run  "print  nmgrph.out" 

COMMAND  "Read-Again" 

"View  current  monograph  on-screen"  HELP  1 

clear  screen 

run  "less  mngrph.out" 
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COMMAND  "Exit"  HELP  2 
exit  menu 
end  menu 
END  FUNCTION 

###############^############################################### 
FUNCTION  generlc_mono() 
define 

tmp_val  chard), 
tmp_gen  like  exporegm-exagent, 
runfile  char(50) 
menu  "GENERIC-MONO" 

COMMAND  "Generate" 

"Generate  a  new  monograph  for  a  single  generic"  HELP  1 
clear  saeen 
call  alrt260open() 

MENU  "This  will  take  awhile  to  generate" 
command  "Continue" 
clear  window  alrt260 
call  select_generic()  returning  tmp _gen 
call  genMonoOptO  returning  tmp_val 
if  tmp_val «  "Z" 
then 

exit  menu 

else 

clear  window  alrt260 

display  "  Preparing  Monograph _ "  at  2,2 

call  gerd»^onoGen(tmp_val,  tmp_gen) 
end  if 

let  rui^file  »  "less  ",  outfile 
run  runfile 
exit  menu 
command  "Quit" 
exit  menu 
end  menu 
call  alrt260close<) 

COMMAND  "Prinr 

"Print  hard  copy  of  current  monograph"  HELP  1 
clear  screen 

display  "Printing  Output  Now..."  at  10,20 
attribute(reverse) 
let  runfile  ■  "print ",  outfile 
run  runfile 

COMMAND  "Read-Again" 

"View  current  monograph  on-screen"  HELP  1 
clear  saeen 

let  runfile  •  "less  ",  outfile 
run  runfile 

COMMAND  "Exit"  HELP  2 
exit  menu 
end  menu 
END  FUNCTION 

######«##########«#######«###«####«#«#######«####«############# 
FUNCTION  biblloJIStO 
define 

tmp^cit  like  citation.citnumb, 
tmp_auth  like  authors-authname, 

_ tmp.ffln  like  exporegm.exagent _ 
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menu  "BIFUOGRAPHY" 

COMMAND  "Total  TKS" 

"Generate  a  comprehensive  bibliography  of  TKS  records" 

MENU  'TOTAL-TKS" 

COMMAND  "Generate" 

"Generate  a  new  bibliography"  HELP  1 
call  alrt260open() 

MENU  "This  will  take  awhile  to  generate" 
command  "Continue" 

display  "  Preparing  bibliography at  2,2 
let  outfile  a  "tottks.out" 
declare  bib_gen  carsor  for 
select  citnumb,  authname 
from  citation,  authors 
where  authsig  « 1 
and  citnumb  >  aucitnumb 
order  by  2, 1 

start  report  bib_out  to  outfile 

foreach  bib_gen  into  tmp_dt,  tmp_auth 

output  to  report  bib_out  (tmp_cit,  tmp_auth) 
end  foreach 
finish  report  bib_out 
exit  menu 
command  "Quit" 
exit  menu 
end  menu 
call  alrt260close() 

COMMAND  "Print" 

"Print  hard  copy  of  current  bibliography"  HELP  1 
run  "print  tottks.out" 

COMMAND  "Read-Again" 

"\'iew  current  bibliography  on-screen"  HELP  1 
run  'less  tottks.out" 

COfvlMAND  "Exit"  HELP  2 
exit  menu 
end  menu 

COMMAND  "Author" 

"Generate  a  comprehensive  bibliography  for  a  given  author" 

MENU  "ALTTHOR-TKS" 

COMMAND  "Generate" 

"Generate  a  new  bibliography"  HELP  1 
call  alrt260open() 

prompt  "Enter  last  lume  and  initials  >" 
for  tmp_auth 

let  tmp_auth  »  upshift(tmp_auth) 

MENU  "This  will  take  awhile  to  generate" 
comrrund  "Continue" 

display  "  Preparing  bibliography ..."  at  2,2 
let  outfile  ■  "authtks.out" 
declare  auth_gen  cursor  for 
select  aucitnumb,  authname 
from  authors 

where  authname  « tmp_auth 
order  by  2,1 

sU.  t  report  bib_out  to  outfile 


foreach  auth_gen  into  tmp_cit,  tmp_auth 


end  foreach 
finish  report  bib_out 
exit  menu 
command  "Quit" 
exit  menu 
end  menu 
call  alrt260close() 
COMMAND  "Print" 


"Print  hard  copy  of  current  bibliography"  HELP  1 
run  "print  authis.out" 

COMMAND  "Read-Again" 

"View  current  bibliography  on-screen"  HELP  1 
run  'less  authtks.out" 

COMMAND  "Exir  HELP  2 


exit  rrienu 
end  menu 

COMMAND  "Generic" 

"Generate  a  comprehensive  bibliography  on  a  given  generic" 

MENU  "GENERIC-TKS" 

COMMAND  "Generate" 

"Generate  a  new  bibliography"  HELP  1 
call  select_generic()  returning  tmp_gen 
call  alrt260open0 

MENU  "This  will  take  awhile  to  generate" 
command  "Continue" 

display  "  Preparing  bibliography ..."  at  2^ 
let  outfile  »  "generictks.out" 
declare  gen_gen  cursor  for 

select  uniquefexdtnumb),  authrume,  exagent 
from  exporegm,  authors 
where  exagent »  tmp _gen 
and  audtnumb  ■  exdtnumb 
and  authsig  « 1 
order  by  2, 1 

start  report  bib_out  to  outfile 

foreach  gen_gen  into  tmp_cit,  lmp_auth,  tmp_gen 
output  to  report  bib.rul  (tmp.dt,  tmp_auth) 
end  foreach 
firash  report  bib_out 
exit  menu 
conrunand  "Quit" 
exit  menu 
end  menu 
call  alrt260close() 

COMMAND  "Print" 

"Print  hard  copy  of  current  bibliography"  HELP  1 
run  "print  generictks.out" 

COMMAND  "Read-Again" 

"View  current  bibliography  on-screen"  HELP  1 
run  "less  generictks.out" 

COMMAND  "Exir  HELP  2 
exit  menu 
end  menu 
COMMAND  "Exir 
exit  menu 
END  MENU 
END  FUNCTION 
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#«#«######«#####«#######«######«##############«#««###«#####«######## 
FUNCTION  out_mono(c_num) 
define 

c_num  like  dtation.dtnumb 
declare  out_cur5  cursor  for 
select  *  from  citation 
where  dtnumb  =  c_num 
order  by  dtnumb 

start  report  mono_out  to  "mngrph.out" 
foreach  out_curs  into  T_citation.* 

output  to  report  mono_out  (T  .dtation.*) 
end  foreach 
finish  report  mono  out 
end  FUNCTION 

REPORT  mono_out(c_cltatlon) 

define 

c_dtation  record  like  dtation.*, 
tmp_string  chaKSOO), 
tmpname  char(60), 
author  like  authors-authname, 
keyword  like  keywords-keyword, 
aim_str  char(20), 

h_dsgnno,  h_subjno,  h_expono  smallint, 
bdwdon,  bdvrdoM  itwdon,  itwdoff  char(5) 
output 

report  to  "tk3_query.tmp'' 
left  margin  0 
top  margin  0 
bottom  margin  0 

order  external  by  c_dtation.dtnumb 
format 

before  group  of  c_dtation.dtnumb 
let  citnumber  ■  c_citation.dtnumb 
after  group  of  c_dtation.dtnumb 
#dtation  information 

print  "TIG  Gtation  code;  ",  c_dtation.dtnumb 
print  "File  code;  ",  c_dtation.dtfile  dipped, 

"  in  the  following  files;  ",  c_dtation.dtlocate  clipped 
call  biblio  _gen(c_dtation.dtnumb) 
print  bib_entry  clipped 
print 

#  k^rword  information 

call  keywd_list(c_dtation.dtnumb) 

print  "Keywords  Assigned;  ",  keywdlst  clipped 

#  paper  information 

select  count(*)  into  ent 
from  piaperover 

where  papdtnumb  ■  citnumber 
if  ent  >  0 
then 
print 

print  "ABSTRACT' 
print 

#  Paper  overview  information 
print  "Overview;" 

call  paper_entry(c_dtation.citnumb) 
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print  pap_string  clipped 
#  Design  information 
print 

print  "Design  Information:" 
declare  dsgn_cur  cursor  for 
select  •  into  T_stdydsgn.* 
from  stdydsgn 

where  stycitnumb  =  c_citation.citnumb 
foreach  dsgn_cur 
print 

print  "Design  Number  ",T_stdydsgn.stydsgncur  using  "«<" 
call  dsgn_entry(c_citation.citnumb) 
print  dsgn_string  clipped 

#  Subject  Information 

print 

print  "Subject  Group  Information" 
declare  subi_curs  cursor  for 
select  •  into  T_subjgrp.* 
from  subjgrp 

where  sgdtnumb  =  c_citation.dtnumb 
and  sgdsgnnum  =  T_stdydsgn.styserial 
order  by  sgdsgnnum 
foreach  subj_curs 
print 

print  "Subject  Group  ", 

T_subjgrp.sglink  using  "«", 

"  of  Design  ",  T_stdydsgn.stydsgncur  using 
call  subj_entry(c_dtation.dtnumb) 
print  subj_string  clipped 
end  foreach 
close  subj_curs 

#  Exposure  Regimen 

print 

print  "Exposure  Regimen  Information" 
declare  expo_curs  cursor  for 
select  *  into  T_exporegm.* 
from  exporegm 

where  excitnumb  =  c_citation.dtnumb 
and  exdsgnnum  *  T_stdydsgn.styserial 
order  by  exdsgnnum 
foreach  expo_curs 
print 

print  "Exposure  Regimen  ", 

T_exporegm.exlink  using  "«", 

"  of  Design  ",  T_stdydsgn.stydsgncur  using 
call  expo_entry(c_dtation.dtnumb) 
print  ex]x>_string  clipped 
end  foreach 
close  expo_curs 
end  foreach 

end  if 

#  finding/ results  information 
print 

print"Results:  Design-Oriented" 
select  countf")  into  ent  from  clinfind 
where  cfdtnumb  «  c_dt3tion.citnumb 
if  ent  <  1 


then 

print  "No  clinical  findings  entered." 
print 
return 
end  if 

declare  exgp.,curs  cursor  for 
select  •  from  expogrp 
where  egdtnumb  =  c_dtation.citnumb 
order  by  egdsgn,  egsubg,  egexpo 
let  h_dsgnno  =»  0 
let  h_subjno  =  0 
let  h_expono  =  0 

foreach  exgp_curs  into  T_expogrp.* 
if  T_expogrp.egdsgn  <>  h_dsgnno 
then 

print  3  spaces,  "Design;  ",  T_expogrp.egdsgndsc  clipped 
let  h_dsgnno  =  T_expogrp.egdsgn 
end  if 

if  T_expogrp.egsubg  <>  h_5ubjno 
then 

print  6  spaces,  "Subjects: ",  T_expogrp.egsubgdsc  clipped 
let  h_subjno  »  T_expogrp.egsubg 
end  if 

if  T_expogrp.egexpo  <>  h_expono 
then 

print  6  spaces,  "Exposure  Regimen:  ",T_expogrp.egexpodsc  clipped 
let  h_expono  a  T_expogrp.egexpo 
end  if 

declare  find_cur3  cursor  for 
select  •  from  clinfind 

where  cfcitnumb  a  T_expogrp.egdtn>jmb 
and  cfeglink  »  T_expogrp.egserial 
order  by  cfeglink,  cfsitecode,  cffinding 
let  cnt  =  0 

foreach  find_curs  into  T_clinfind.* 
let  cnt  a  cnt  +  1 

call  find_entry(T_clinfind.cfdtnumb) 

print  find_string  dipped 

print 

end  foreach 
if  cnt  a  0 
then 

print  'TMo  results  reported  for  this  Exposure  Group." 
print 
end  if 

dose  find_curs 
end  foreach 
close  exgp_curs 

end  report 

REPORT  bib_out(c_citation,  author) 

define 

c_citation  like  dtation.citnumb; 
tmp_string  chariSiX)), 
tmpname  char(60), 
author  like  authors.authname 


mm 
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report  to  "tks_query.tmp" 
left  margin  0 
top  margin  0 
bottom  margin  0 

order  external  by  author,  c_citation 
format 

first  page  header 

print  "REFERENCES" 
print 

after  group  of  c_citation 
#citation  information 

call  biblio_gen(c_dtaticn) 
print  bib_entry  dipped 
print 

end  report 
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#tksmon2.4gl 

( 

TITLE:  tksinon2.4gl 

Copyright  Harold  L.  Trainmel,  1987-1988 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contaiirs  the  following  functions: 
biblio_gen(in_cit) 
auth_gen(in_cit) 
auth_down(t_auth) 
keywdjist(in_cit) 
paper_entry(in_cit) 
dsgn_entry(in_cit) 
subj_entry(in_cit) 
expo_entry(in_cit) 
find  entryfin  cit) 

1 

database  tkstest 
globals  "tksgIob.4gr 
define 

auth_string  char(320) 

#########«######«#################«############«######«#####«## 
FUNCTION  bibllo_gen(ln_cit) 

#  generates  bibliographic  entry  for  a  given  citation  and  puts 

#  entry  in  a  global  variable  'bib.entry' 

define 

in_cit  like  dtation-citnumb, 
t_serial  integer, 
tjoum  like  joumlst.jabrv, 
t_vol  like  citation-citvol, 
t_page  like  dtation.-dtpage, 
t_src  like  citation.citsource, 
t_date  like  dtation.dtdate, 
t_title  like  dtation.cittitle, 
book  record  like  booklst.*, 
num_string  chardO), 
dt_string  char(480), 
ten  smallint 
call  auth_gen(in_cit) 

#dtation  string  prep 
let  dt_string  *  "" 

select  citserial,  citsource,  dtvol,  citpage,  dtdate,  dttitle 
into  t_serial,  t_src,  t_vol,  t_page,  t_date,  t_title 
from  citation 
where  dtnumb  » in_dt 
if  status  »  NOTFOUND 
then 

MESSAGE  "No  papers  found." 

SLEEP  1 

MESSAGE  "" 

RETURN 

else 

^generate  dtation 
if  t_src[l,l] «  "J" 
then 
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select  jabrv  into  t Joum  from  joumlst 
where  jcode  » t_src 
let  dt_string  = 

tjitle  clipp)ed, ", ", 
tjoum  clipped,"  ", 
t_vol  clipped,";", 
t_page  clipped,",", 
t_date 

else 

select  •  into  book.*  from  booklst 
where  bcode  =  t_src 
let  cit_string  = 

tjitle  clipped, ",  in  ", 
book.beditor  clipped, 
book.bname  clipped,", " 
if  book.bedno  is  not  null 
then 

let  dtjtring  » 

dt_string  dipped, 
booLbedno  dipp^,"ed." 

end  if 

if  book.bvoI  is  not  null 
then 

let  dt_string  » 

dl_string  dipped, 
book.bvol  dipped 

end  if 

let  dt_string  » 

dt jtring  dipped, 
book.bpub  clipped, ", ", 
book.bpubplace  clipped, ", ", 
booV-bdate  dipped,",", 

"  pp.  ",  t^page  clipped 

end  if 

end  if 

let  num_string  »  "(",  t.serial  using  "««««", ")" 
let  bib_entry  » 

num_string  dipped, "  ", 
auth_string  clipped, "; ", 
cit  string  dipp^ 

END  FUNCTION 

FUNCTION  auth _gen(!n_cli) 
define 

in_cit  like  dtation.dtnumb, 
t.auth  like  authors.authname, 
t.asig  like  authors.au  thsig, 
aucnt  smallint 
let  auth_string  ■  "" 
select  counK*)  into  aucnt 
from  authors 
where  audtnumb  » in_cit 
if  status  »  NOTFOUND 
then 

let  auth_string  ■  "Anonymous" 
return 
else 
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declare  full_auth  airsor  for 
select  authname,  authsig 
from  authors 
where  aucitnumb  =  in_cit 
order  by  2 

foreach  full_auth  into  t_auth,  t_asig 
cae® 

when  t_asig  >  6 

let  auth_string  =  auth_string  clipped, "  et  al" 
exit  foreach 
exit  case 

when  t_asig  =  aucnt 

call  auth_down(t_auth)  returning  t_auth 
let  auth_string  =» 

auth_string  clipped, 

44  44 

t 

t_auth  clipped 
exit  case 

when  t_asig  <  aucnt 

call  auth_down(t_auth)  returning  t_auth 
let  auth_string  » 

auth_string  clipped, 

44  44 

i 

t_auth  dipped, 

44  44 

4 

exit  case 

end  case 
end  foreach 

end  if 

END  FUNCTION 

«#«#######«##«###########«##########«#############«############ 
FUNCTION  auth_down(t_auth) 
define 

t.auth  like  authors^uthname, 
len  smallint 
let  len  ■  length(t_auth) 
for  X  a  2  to  len 
case 

when  t_auth(x,xl » 
let  t_auth[xp<]  ■  "" 
exit  for 
exit  case 

when  t_auth(x,xj «  "  " 
let  t_auth(xp(l  ■  "  " 
exit  for 
exit  case 

when  t_auth[x,xl  ■ 
let  X  «  x+1 
exit  case 
otherwise 

let  t_authlx,xl »  downshift(t_authix,xJ) 
exit  case 
end  case 
end  for 
return  t  auth 
END  FUNCTION 

#######################################«#########««############ 
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FUNCTION  keywdjlst(ln_clt) 

#  generates  a  string  containing  the  keywords  and  puts  them 

#  in  global  variable  "keywdlst" 

define 

t_key  like  keywords.keyword, 
in_cit  like  dtation.dtnumb, 

X,  cnt  smallint 
select  counU*)  into  cnt 
from  keywords 
where  keycitnumb  =»  in_dt 
if  cnt  <  1 
then 

let  ke3nvdlst »  "No  keywords  entered." 
return 
end  if 
let  X  a  0 

declare  full_keys  cursor  for 

select  keyword  from  keywords 
where  keydtnumb  =  in_dt 
let  keywdlst »  "" 
foreach  full_keys  into  t_key 
let  X  a  X  + 1 

ifx>=cnt 

then 

let  keywdlst »  keywdlst  clipped,"  ", 
downshift(t_key)  dipp^ 
exit  foreach 
else 

let  keywdlst  a  keywdlst  clipped, "  ", 
downshift(t_key)  dipp^, ", " 

end  if 

end  foreadi 
HND  FUNCTiOM 

FUNCTION  pap6t'_entify(in_cit) 

detine 

in_dt  like  paperover.papdtnumb 
select  •  into  T_paperover.* 
from  paperover 
where  papdtnumb  a  in_dt 
let  pap_string  * 

aim_trans(T_paperover.papaim)  clipped, 

"  paper  with  stated  purpose  of ", 

T_paperover.p>apstatepur  clipped 
if  length(T_paperover.papimppur)  >  0 
then 

let  pap_string  a 

pap_string  clipped, 

"  and  implied  purpose  of ", 

T_pai5erover.papimppur  clipped 

end  if 

let  pap_string  a 

pap_string  clipped,  "  rejxirting  on  ", 

T  paperover.papnumdsgn  using  "«<", "  design(s)." 

END  FUNCTION 

####################«#######«###««««##«#«###«##«####«###«###### 
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FUNCTION  dS8n_entry(ln_clt) 
define 

in_dt  like  citation.dtnumb 
let  dsgn_string  =■ 

"Design  Type: ", 

stype_trans(T_stdydsgn.stytype)  dipped, 

"  experiments  were  performed  in  an  ", 
vivit_trans(T_stdydsgn.styvivit)  dipped, 

"  setting  with  " 

case 

when  T_stdydsgn.stycntl  =*  "Y" 

let  dsgn_string  »  dsgn_string  clipped,  "  ", 

cntlcmp_trans(T_stdydsgn.stycntlcmp)  dipped, "  ", 
cmpmeth_trans(T_stdydsgn.stycmpmeth)  clipped,"  ", 
"control(s)  using  a(n) ", 

cntlmeth_trans(T_stdydsgn.stycntlmeth)  clipped, "  ", 
cntltyp_trans(T_stdydsgn  jtycntltyp)  dipp^  "  ", 

"with", 

T_stdydsgnJtynumgrp  using  "«  ",  "subject  groupfs) ", 
cntlassgn_tians(T_stdydsg;n.stycntassgn)  clipped, "  ", 
"assigned  to  ", 

T_stdydsgn,stynumexp  using  "«  ",  "exposure  regimens." 
exit  case 

when  T_stdydsgn.stycntl  ■  "N" 

let  dsgn_string  «  dsgn_string  clipped, "  ", 

"no  controls  using  ", 

T_stdydsgn.stynumgrp  using  "«  ", 

"subject  groups  and  ", 

T_stdydsgn.st)mumexp  using  "«  ", 

"exposure  regimens." 
exit  case 
end  case 

END  FUNCTION 

FUNCTION  subL8ntry(ln_clt) 
define 

in.dt  like  dtation-dtnumb 
let  subj_stTing  ■ 

"Consisted  of  ",  T_subjgrpjgnumb  using  "««", "  ", 
sex_trans(T_subjgrp  Jgsex)  clipped, ", ", 

T_subjgrp.sgage  clipped, "  ", 
date_trans(T_subjgrp.sgageurut)  dipped, "  old  ", 
T.subjgrp-sgbreed  dipped, "  ", 

T_subjgrp.sgspedes  clipped, "  weighing  ", 

T_subjgrp.sgwt  using  "«<«",  "  kilograms  " 
if  (length(T_subjgrp.sght)  >  0  and  T_subigrp3ght  <>  "NA") 
then 

let  subjLString  ■  subj_string  dipped,"  ", 

T_subjgrp.sght  clipped, "  ", 

T_subjgrp.sghtunit  clipped, "  tall" 

end  if 

if  (length(T_subjgrp.sgoccup)  >  0  and  T.subjgrp.sgoccup  <>  "NA") 
then 

let  subj_string  ■  subj_string  dipped,"  ", 

"  with  ",  T_subjgrp.sgoccup  clipped, 

"  occupation  " 


t 


ge:ays 


let  subj_string  =  subj_string  clipped,"  ", 

"of  ",  T_subjgrp.sghlthstat  clipped, 

"  health  status  obtained  from  ", 

T_subjgrp.sgsource  clipped, 

"  and  received  a  total  of  ", 

T_subjgrp.sgtotexpo  using  "««",  "  exposure(s)." 

END  FUNCTION 

############################################################### 
FUNCTION  expo_entry(ln_cit) 
define 

in_cit  like  dtation.dtnumb 
let  expo_string  =  "Involving  exposure  to  ", 

T_exporegm  exagent  clipped, 

"  for  the  ptirpose  of  assessing  ", 

T_exporegm.expurpose  clipped, 

"  [effects).  It  was  given  by  ", 

T_exporegm.exadininmeth  dipped, 

*  It  a  dose  of ", 

T_exporegm.exdose  dipped, "  ", 

T_exporegm.exdoseunit  dipped,  “  in  a  ", 
form_trans(T_exporegm.exformul)  dipped, "  form  by  the  ", 
rte_trans(T_exporegm.exroute)  dipped, "  route  every  ", 
T_exporegm.exinterval  clipped, "  for  a  duration  of  ", 

T_exporegm.exduration  clipped, " 
if  (T_exporegm.exevaltime  <>  "NA" 
or  length(T_exporegm.exevaltime)  >  0) 
then 

let  expo_string  »  expo_string  dipped,"  ", 

"The  subjects  were  evaluated  at ", 

T_exporegm.exevaltime  clipped, 
end  if 

END  FUNCTION 

FUNCTION  find_entry(!n_cH) 

define 

in_dt  like  dtation.dtnumb 
if  length(T_dinfind.cfsevxtnits)  <  1 
then 

let  find_string  » 

severe_trans(T_dinfind.cfsewalue)  dipped,"  ", 
trans_change(T_dinfind.cfchange>  dipp^,"  ", 
upshift(T_dir\find.cffinding)  dipped,"  ", 

"in  ",  upshift(T_clinfind.cfsite)  clipped,"  ", 

"seen  in  ",  upshift(T_clinfind.cffreq)  clipped, 

"  subjects  " 

if  T_dinfind.cfonset  is  not  null 
then 

let  find_string  ■  find_string  clipped, 

"  with  onset  of ", 

upshift(T_cIinfind.cfonset)  clipped,"  hourts) " 

end  if 

if  T_clinfind.cfduration  is  not  null 
then 

if  T_clinfind.cfduration  »  "CHRONIC" 
then 
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let  find_string  »  find_string  dipfjed, 

"  and  CHRONIC  duration." 

else 

let  find_string  =  find_string  clipped, 

"  and  duration  of  ", 
upshift(T_clinfind.cfduration)  clipped, 
"  hour(s)." 

end  if 

end  if 

else 

let  find_string  » 

trans_change(T_clinfind.cfchange)  clipped,"  ", 
upshift{T_clinfind.cffinding)  clipped,"  ", 
"(",upshift(T_clinfind.cfsewalue)  clipped, "  ", 
upshift(T_clinfind.cfsevunits)  clipped, ") ", 

"in  ",  upshift(T_clinfind.cfsite)  clipped,"  ", 

"seen  in  ",  upshift(T_clinfind.cffreq)  clipped, 

"  subjects  " 

if  T_clinfind.cfonset  is  not  null 
then 

let  find_string  »  find_string  clipped, 

"  with  onset  of ", 

upshift(T_clinfind.cfonset)  clipped,"  hourfs) " 

end  if 

if  T_clinfind.cfduration  is  not  null 
then 

if  T_clinfind.cfduration  »  "CHRONIC" 
then 

let  find_string  »  find_string  clipped, 

,  "  and  ChniONIC  duration." 

else 

let  find_string  » find_string  clipped, 

"  and  duration  of  ", 
upshift(T_clinfind.cfduration)  clipped, 

"  houKs)." 

end  if 

end  if 

end  if 

END  FUNCTION 


#tksmon3.4gl 

{ 

TITLE:  tksmon3.4gl 

Copyright  Hcut)ld  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPlC 
Fimded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 

} 

database  tkstest 
globals  "tksglob.4gr 
define 

T_generic  like  exporegm.exagent, 
chem_string  <diar(80), 
outfile3  chariSO) 

#################«###«####««##########««###«################### 
FUNCTION  sdlect_fieneric() 
define 

tmp_gen  like  exporegm-exagent 
open  window  a260  at  10,10  with  2  rows,  60  columns 
attributefborder,  green) 
prompt  "Enter  generic  >" 
for  tmp _gen 

let  tmp_gen  »  upshift(anp_gen) 
close  window  a260 
return  tmp_gen 
end  function 

FUNCTION  genMonoOptO 

open  window  alrtl960  at  4,20  with  19  rows,  60  columns 
attribute  (border,  green,  prompt  line  last  -1) 
display  "REPORT  CHOICES  FOR  GENERIC—  DEC  1989*  at  1,10 
display  "A  ■  Sysrem-Sign-Species-Dose-Study  Design  "  at  3,2 
display  "B  »  Species-Syslem-Sign-Dose-Study  Design  "  at  5,2 
display  "C  » l5ose-Species-Sy9tem-Sign-Study  Design  "  at  7,2 
display  "D  »  Study  Design-Spedes-System-Sign-Dose  "  at  9,2 
display  T  ■  Total  Agent  Monograph  "at  15,2 
display  "Z- Exit  "at  17,2 
prompt  "Enter  report  choice  >  "  for  char  answer 
on  key(interrupt) 
let  answer  *  "Z* 
close  window  alrtl960 
return  answer 
end  prompt 

let  answer  «  upsliift(answer) 
close  window  alrtl960 
return  answer 
end  function 

i#####################*###################################*#### 
FUNCTION  g»nMonoG«n(tmp_vai,  tmpjjen) 
define 

tmp_val  chard), 
runfile/}utfile2  char(8Q), 
tmp_gen  like  exporegm-exagent, 
t_sys  chard), 

t_citnumb  like  citation.citnumb. 
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t_cftype  like  dinfind-cftype, 
t_cffinding  like  clinfind-cffinding, 
t_cfchax>ge  lL\e  clinfind-cfchange, 
t_cfsevvalue  like  dinfind-cfsewalue, 
t_cfsev\inits  like  dinfind.cfsevunits, 
t_cffreq  like  dinfind.dfreq, 
t_cfonset  like  dinfind-cfonset, 
t_cfduration  like  dinfind.cfduration, 

Legsubgdsc  like  expogrp.egsubgdsc, 
t.egexpodsc  like  expogrp.egexpodsc, 
t_egdsgndsc  like  expogrp.egdsgndsc, 
t_authnaine  like  authorsauthname, 
t_exagent  like  exporegm.3xagent, 
t_dtserial  like  dtation.dtserial, 
t_gen  char(4) 

let  t_gen  3  tTnp_gen[l,4] 
for  X  3  1  to  4 
if  t_gen(xp(]  3 
then 

let  t_genlx,xl  3 
end  if 
end  for 
Case 

when  tmp_val  3  "A* 

let  outhle  » t_gen,"mono.out" 
let  outhle2  » t_gen,"bib.out* 
let  outfile3  ■  t_gen,''^ut" 
declare  a_curs  cursor  for 
select 
cft]^, 
dsitecoded], 
dfindlng, 
cfchange, 
dsewalue, 
cfte^omits, 
cffreq, 
cfonset, 
dduration, 
egsubgdsc, 
egexpodsc, 
egdsgndsc 
dtsehal 

from  dinfind,  expogrp,  exporegm,  dtation 
where  exagent  3  tmp_gen 
and  egexpo  3  exserial 
and  cfeglink  3  egserial 
and  dtnumb  »  ddtnumb 
order  by  1  desc,  2, 3, 4 
start  report  genMono  to  outfile 
foreach  a_curs  into 

t_cftype,  t_sys,  t_dfinding,t_dchange, 

t_cfsevvalue,t_cfsevunits,t_cffreq,t_cfonset, 

t_cfduration,t_egsubgdsc,t_egex^3C,t_egdsgndsc, 

t_dtserial 

output  to  report  genMonof 

_ _ t.cftype,  t_sys,  t_dfinding>  t.cfchange, _ 
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t_cfsewaIue,t_cfsevurats,t_cffreq,t_cfonset, 
t_cfdiiration,t_eg;subgdsc,t_egexpodsc,t_egclsg;ndsc, 
t_citserial) 
end  foreach 
finish  report  genMono 
dose  a_curs 
declare  a_bib  cursor  for 

select  uniquefegdtnumb),  authiume,  exagent 
from  clinfind,  authors,  exporegm,  expcgrp 
where  exagent  *  tmp _gen 
and  egexpo  =*  exserial 
and  authdg  3 1 
and  egdtnumb  =  cfdtnumb 
and  egcitnumb  3  audtnumb 
and  egdtnumb  =  exdtnumb 
order  by  2 

start  report  bib_cut  to  outfi]e2 

foreach  a_bib  into  t_dtnumb,  t_authname,  t_exagent 
output  to  report  bib_out(t_dtnumb,  t_authname) 
end  foreach 
finish  report  bib_out 
Qose  a_bib 

let  runfile  *  "cat ",  outfile  dipped, "  ",  outfi]e2  clipj)ed,">",  outfile3  dipped 
run  nmfile 
exit  case 

when  tmp_val «  "B" 
when  tmp_val  ■  "C" 
when  tmp_val  ■  "D" 
when  tmp_val  ■  'T" 

call  genMonoTot(tmp_gen) 
exit  case 
end  case 
end  function 

REPORT  genMoncKLcttype,  t_8ys,  t_cffind}ng,  t_cfchang9,  t_cfs©wa5ue,  t_cfsevunlts,  t_cffreq, 
t_cfonset,  i_cfduratlan,  t_egsubsdsc,  t_egexpodsc,  t^egdsgndsc,  S_cits«trial) 
define 

tmp_val  chard), 

tmp_gen  like  exporegm-exagent, 

tmp_sys  like  tkssite.systemcode, 

tmp_systemname  like  tkssite.systemname, 

junque  chardO), 

t_cftype  like  dinfind.cftype, 

t_sys  chaifl), 

t.cffinding  like  dinfind-cffinding, 
t_cfchange  like  clinfindxfchange, 
t_cfsevvalue  like  dinfirid.cfsewalue, 
t.cfseviuuts  like  dinfind-cfsevunits, 
t_cffreq  like  dinfind.cffreq, 
t_cfonset  like  dinfind.cfonset, 
t_cfduration  like  clinfind.cfduration, 
t.egsubgdsc  like  expogrp.egsubgdsc, 
t_egexpodsc  like  expogrp.egexpodsc, 
t.egdsgndsc  like  expogrp.egdsgndsc, 
t.dtserial  like  dtation-dtserial 
output 

_ left  margin  0  _ 
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right  margin  0 
bottom  margin  0 

order  extemai  by  t_cftype,  t_sys,  t_cffiiuiing,  t_cfchange 


format 

before  group  of  t_cftype 
case 

when  t_cftype  »  "S" 

print  "Signs/Disease" 

print 

exit  case 

when  t_c/type  »  "M" 
print  "Morphology" 
print 
exit  case 

wften  t_cftype  *  "L" 

print  "Laboratory  Findings* 
print 
exit  case 
eird  case 

before  group  of  t_sys 
case 

when  t_cftype  »  "S" 

call  system_trai«(t_sys)  returning  j  onque,  tmp_s3rstemiiame 
exit  case 

when  t_cftype  ■  "M" 

call  system_trai\s(t„sys)  returning  junque,  tmp_systemiu.ne 
exit  case 

when  t_cftype  ■  "L" 

call  nratrix_traT\s(t_sys)  returning  jrmque,  tmp_systemname 
exit  case 
end  case 

print  tmp_systemname 
before  group  of  t_cffinding 

print  3  spaces,  t_cffinding  clipped 
on  every  row 

print  tTans_change(t_cfchange)  clipped.  1  spaces, 

"(",t_cfsevvalue  clipped, 
t_cfsev\mits  clipped,  ")  occurring  in  ", 
t_cffreq  dipped, "  subjects  at ", 
t_cfonset  clipped,  "  with  ", 
t_cfduration  ^pped,  "  diuation.  ", 

"  Subjects:  ",t_egsubgdsc  dipped, 

"  Exposures:",  t.egexjxKlsc  clipped, 

"  Desigru",t_egd^TKisc  dipped 
"  (",  t.dtserial  using  "«««",")" 
print 

erwi  report 

FUNCTION  ch«m_data(t_g*n) 

define  t_gen  like  exporegm.exagent 


let  chem  string  ■  "CHEMICAL  DATA:  None  available  at  this  time." 
END  FUNCTION 

FUNCTION  g«nMonoTot(tj]an) 
define 

t_g<»n  like  exporegm.exagent. 
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outfile2,  runfile  char(80), 
t_dtnumb  like  citation-citnumb, 
t_authname  like  authorsauthname, 
t_exager!t  like  exporegm.exagent 
t_genl  char(4) 

let  t _genl  »  l _genll,4j 
for  X  »  1  to  4 

if  t _genl(x,x)  =  "  " 
then 

let  t_genl[x^]  » 
end  if 
end  for 

let  outfile  *  t_genl,''totx)uf' 
let  outfile2  ■  t _genl,"bib.out* 
let  outfile  3  «  t_genl,".out" 
let  T_generic  » t_gen 

declare  agt_cur5  cursor  for 
select 

cfdtnumb, 
cf serial, 
cf^ink, 

cfeglabel,  • 

cftype, 

cfsitecode, 

cfsite, 

cffindcode, 

cf  finding, 

cfchange, 

cfsewalue, 

cfsevunits, 

cffreq, 

cfonset, 

cfduration 

from  clinfind,  exporegm,  expogrp 
where  exporegm-exagent » t_gen 
and  expogrp-egexpo  «  exporegm.exserial 
aiwl  cfeglink  ■  expogrp.egserial 

order  by  cftype  desc,  cfsitecode,  cfftnding,  cfchange,cfsewalue 
start  report  totCenMono  to  outfile 
foreach  agt_curs  into  T_clirdirKl.* 

output  to  report  totGenMono<T_clinfind.*) 
ervi  foreach 

finish  report  totCenMono 
dose  agt_curs 
declare  agt_bib  cursor  for 

select  uniquetegcitnumb),  authrume,  exagent 

from  clinfind,  authors,  exporegm,  expogrp 

where  exagent  *  t_gen 

and  egexpo  >  exserial 

aiKl  auth^g  >  1 

and  egcimunnb  ■  cfdtnumb 

and  egdmuinb  «  audmumb 

aivd  egdtnumb  ■  exdtnumb 

order  by  2 _ _ _ _ 
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start  report  bib_out  to  outfi]e2 

foreach  agt_bib  into  t_dtnumb,  t_authname,  t_exagent 
output  to  report  bib_out(t_dtnuinb,  t_authname) 
end  foreach 
finish  report  bib_out 
Qose  agt_bib 

let  runfile  =  "cat",  outfile  dipped,  "  ",  outfile2  dipped,  ">",  outfileS  dipped 
run  runfile 
end  function 

#############«#######«#««##«#####«####«###«###««#«##«#«#####«###«### 
REPORT  totGenMono(c_ci!nflnd) 
define 

c_clinfind  record  like  clinfind.*, 
t_sys  char<l), 
junque  charflO), 
t_cftype  like  clinfind.cftype, 
tmp.systemname  Uke  tkisite-systemname, 
tmp_dtserial  integer 
order  •  actemal  by  c_dinfind.cfty]3e, 
c_dinfind.cfsi  tecode. 
c.clinfindxffinding, 
c_clinfindxfchange, 
c_dinfindxfsewalue 

format 

first  page  header 
print  t _generic 
print 

call  chem_data(t _generic) 
print  chem_stnng 
print 

page  header 

print  t_generc  clipped,  "  MONOGRAPH  —  page  ",pageno  using  "««" 
print 

before  group  of  c_dinfind.cftype 
case 

when  c_dinfindxftype  ■  "S" 
print 

print  "Signs/ Disease" 
exit  case 

when  c_dinfind4rftype  «  "M" 
print 

pnint  "Moqjhology" 
exit  case 

when  c_dinfindxftype  *  "L* 
print 

print  "Laboratory  Fmdings" 
exit  case 
end  case 

before  group  of  c.dinfind.cfsitecode 
let  t_sys  «  c_clinfind.cfsitecode{ll 
case 

when  c_dinfindxftype  ■  "S" 

call  system_trans(t_^s)  renuning  junque,  tmp_systemnaine 
exit  case 

when  c_dinfindxftype  ■  "M" 

_ call  systeni_trans<t_sys)  returning  junque,  tmp_sy3temname _ 
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exit  case 

when  c_dinfind.cftype  =  "L* 

call  matrix_trans(t_sys)  returning  junque,  tmp_systemname 
exit  case 
end  case 
print 

print  tmp_systemname 
on  every  row 

select  *  into  T_subjgTp.* 
from  subjgrp,  expogrp 
where  sgsericil  *  egsubg 
and  egserials  c_clinfind.cfeglinJc 
select  *  into  T_exporegm.* 
from  exporegm,  expogrp 
where  c_clinfind.cfegUnk  »  egserial 
and  exserial «  egexpo 
select  dtserial  into  tmp_dtseriad 
from  dtation 

where  dtnumb  =  c_clinfind.cfdtnumb 
if  lerigth(T_dinfind.cfeevunits)  <  1 
then 
print 
print 

severe_trans(T_clinfind.cfeewalue)  dipped,"  ", 
trans_change(T_clinfind.cfchange)  dipped,"  ", 
upshift(T_dinfindxdfinding)  dippsed,"  *; 
if  T_clinfiiul.dtype  <>  "S" 
then 

print  "in  ",  upshift(T_clinfind.cfsite)  clipped," 
end  if 

print  "seen  in  ",  upshiftiT^clinfind-cffreq)  dippted, " 
sex_trans(T_subjgrp^gsex)  dipped, ", ", 

T.subjgrp  jgage  dipp«i, "  ", 
date_trans(T_subjgrp.sgageunit)  dipped,  "  old  ", 
T.subjgrp^gbreed  dipped, "  ", 

T.subjgrp^gspedes  clipped, "  weighing  ", 

T.subjgrp-sgvrt  using  "««<",  "  kilograms  "; 
if  (length(T_subjgrp.sght)  >  0  and  T.subjgrp.s^t  <>  "NA") 
then 

print  T_subjgrp.sght  dipped, "  ", 
T.subjgrp^tunitclipp^  "  tall"; 

end  if 

if  (length{T_subjgTp.sgoccup)  >  0  and  T_subjgrp.sgoccup  o  "NA") 
then 

print "  with  ",  T_subjgrp.sgoccup  dipped, 

"  occupation  "; 

end  if 


print  "of ",  T_subjgrp.s^lthsUt  dipped, 
"  health  status  (obtained  from  ", 
T_subjgrp.sgsource  clipped, 

")  which  received  a  total  of  ", 


I  _suogrp.sgtotexpo  using  "««",  -  exposure(s)  i 
T_exporcgm^xdose  dipped, "  ", 
T_exporegTn.exdoscunit  dipped,  1  space, 
T_expoiregm^gent  dipped,  "by  ", 
T.exporegm-exadminmeth  dipped,"  ", 
rte_tTans(T  ex - - 


.exroute)  di 


route  every  ", 
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T_exporegm.exinterval  clipped,  "  for  a  duration  of ", 
T_exporegm.exduration  cupped, 
if  (T_exporegm.exevaltime  <>  "NA" 
or  length(T_exporegm.exevaltime)  >  0) 
then 

print  "The  subjects  were  evaluated  at  ", 
T_exporegm.exevaltime  clipped, ". 
end  if 

if  T_clinfind.cfonset  is  not  null 
then 

print  "  Clinical  effect  had  onset  of  ", 
upshift(T_clinfuid.cfonset)  clipped," 
end  if 

if  T_dinfind.cfduration  is  not  null 
then 

if  T_clinfind.cfduration  »  "CHRONIC" 
then 

print "  and  CHRONIC  duration. 
else 

print "  and  duration  of  ", 
upshift(T_clinfind.cfduration)  clipped, 

•  i 

end  if 
end  if 

print  "  (",  tmp_citserial  using  "«««<" ,  ")" 

else 

print 

print  trans_change(T_clinfind.cfchange)  clipped,"  ", 
upshift(T_clinfind.cffinding)  clipped,"  ", 
"(",upshift(T_clinfind.cfsewalue)  clipped, "  ", 
upshift(T_cIinfind.cfsevunits)  clipp>ed, ") 
if  T_dinfind.cftype  <>  "S" 
then 

print  "in  ",  upshift(T_clinfind.cfsite)  clipped," 
end  if 

print  "seen  in  ",  upshift(T_clinfind.cffreq)  dipped,  "  ", 
sex_trans(T_subjgrp.sgsex)  dipped, ", ", 

■^-subjgrp.sgage  clipped, "  ", 
date_trans(T_subjgrp.sgageunit)  dipped, "  old  ", 
T_subjgrp.sgbreed  dipj^, "  ", 

T_subjgrp  jgspedes  clipped, "  weighing  ", 

T.subjgrp.sgM  using  *««<", "  kilograms 
if  (length(T_subjgrp.^t)  >  0  and  T.subjgrp  j^t  <>  "NA") 
then 

print  T_subjgrp.sght  dipped, "  ", 

T_sul^^p.$^tunit  clipped, "  tail  "; 

end  if 

if  Oength(T_subjgTp.sgoccup)  >  0  and  T_subjgrp.sgoccup  o  "NA") 
thm 

print  "  with  ",  T_subjgrp.sgoccup  clipped, 

"  occupation 

end  if 

print  "of  ",  T_subjgrp.sghlthstat  dipped, 

"  health  status  (obtained  from  ", 

T_subjgTp.sgsouice  clipped, 

")  which  received  a  totol  of ", 

T_3ubjgrp.sgtotexpo  using  “««" 


", "  exposurefs)  to  ", 
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T_exporegTrLexdose  dipped, "  ", 
T_exporegin.exdoseunit  dipped,  1  space, 
T_exporegm.exagent  clipped, "  by  ", 
T_exporegTn.exadminmeth  clipped, "  ", 
rte_trans(T_exporegm.exroute)  dipped, "  route  every  ", 
T_exporegm.exinterval  dipped, "  for  a  duration  of ", 
T_exporegirLexduration  clipped, ".  "; 
if  (T_exporegm.exevaltime  <>  "NA" 
or  length(T_exporegm.exevaltiine)  >  0) 
then 

print "  The  subjects  were  evaluated  at ", 
T_exporegnrLexevaltime  clipped, ".  "; 
end  if 

if  T_clinfind.cfonset  is  not  null 
then 

print "  Clinical  effects  had  onset  of ", 
upshift(T_dinfind.cfonset)  dipped," 
end  if 

if  T_dinfind.cfduration  is  not  null 
then 

if  T_clinfind.cfduration  »  "CHRONIC" 
then 

print  "and  CHRONIC  duration. 
else 

print "  and  duration  of  ", 
upshift(T_clinfind.cfduration)  dipped, 

*  / 

end  if 

print "  (",  tmp_dtserial  using  "«««", ")" 
end  if 
end  if 
end  report 
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#tksvoc.4gl 

{ 

TITLE:  tksvoc.4gl 

Copyright  Harold  L.  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPlC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Contains  the  following  PTJNCTIONs: 
j_list() 
addJoumO 
update JoumO 
deleteJoumO 
query  JoumO 
view_joum() 
dispriameO 
b_list() 
add_book() 
update_book() 
delete_book() 
query_book() 
view_book() 
bdispnameO 
k_list() 
add_klist() 
update..kljst() 
deleteJklistO 
query_klist() 
view_klistO 
dispkeyO 

) 

DATABASE  tkstest 
GLOBALS  "tksglob.4gl'' 

#Joumal  FUNCTION 
FUNCTION  LllStO 
define 

answer  chard)  _ 

open  window  jwl  at  3J  with  form  "vocjoum*  ATTRIBUTE  (BORDER) 
menu  'TOURNAL-VCCABULARY* 

COMMAND  “Add" 

"Add  Journal  to  Journal  Vocabulary"  HELP  900 
call  add  JoumO 
COMM^\ND  "Find" 

"Hnd  Journal  in  Journal  Vocabulary"  HELP  901 
call  query  JoumO 
COMMAND  "Exir 

"Exit  from  Journal  Vocabulary  Modification"  HELP  2 
exit  menu 
END  menu 
Gose  window  jwl 
clear  screen 
END  FUNCTION 
FUNCTlON.add  JoumO 
define 

jname2  char<60), 
jnamel  char<60), 
jrow  integer 
MESSAGE - 
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CLEAR  FORM 
let  sw  a  0 
INPUT 

jnamel,  jname2,  TJoumlst.jabrv 
FROM 

jname,  jnm,  jabrv 
ON  KEY  (INTERRUPT) 
let  SW  a  1 
EXIT  INPUT 
END  INPUT 

IF  sw  a  1  then  RETURN  end  if 
let  TJoumlstjacquis  =  0 
let  TJoumIst.jcode  a  "JOOOOO" 
let  TJoumlst-jname  a  jnamel  clipped,  jname2 
insert  into  journlst  values  (TJournlst.*) 
let  TJournlst. jacquis  a  SQLCA.SQLERRD12] 
let  TJoumIst.jcode  a  "J",TJoumlst.jacquis  using  "&&&&&" 
update  journlst  set  jcode  a  TJoumIst.jcode 
where  TJoumlst.jabrv  a  journlst. jabrv 
display  TJoumIst.jacquis  to  jacquis 
display  TJoumIst.jcode  to  jcode 
MESSAGE  '^Row  Added" 
sleep  1 

MESSAGE  "" 

END  FUNCTION 
FUNCTION  update JournO 
define 

jname2  char(60), 
jnamel  char(60), 
jrow  integer 
let  jnamel  *  TJoumlst.jname[l,60) 
let  jname2  a  TJournlst. jname(61, 120] 
let  sw  a  0 
INPUT 

TJoumIst.jacquis,  TJoumIst.jcode, 
jnamel,  jname2, 

TJoumlst.jabrv 
WITHOUT  DEFAULTS 
FROM 

jacquis,  jcode,  jname,  jnm,  jabrv 
ON  KEY  (INTERRUPT) 
let  sw  a  1 
EXITINPUT 
END  INPUT 

IF  sw  a  1  then  RETURN  END  IF 

let  TJoumlst.jname  a  jnamel  clipped,  jname2 

UPDATE  jourrilst 

SET”  journlst.*  a  TJournlst.* 

where  journlst. jeodea  T Journlst. jcode 
MESSAGE  "Row  Updated." 

SLEEP  1 
MESSAGE  "" 

END  FUNCTION 
FUNCTION  deleteJoumO 

DELETE  FROM  journlst  WHERE  jeodea  TJoumIst.jcode 
CLEAR  FORM 
MESSAGE  "Row  Deleted." 


I 


193 


L 


stem  SourceiCod 


SLEEP  1 
MESSAGE  "" 
END  FUNCTION 


FUNCTION  queryJournO 
clear  form 
let  int_flag  =  0 

construct  queryl  on  jcode,  jname,  jabrv 
from  joumlst.* 

if  int_flag  <>  0  then  return  end  if 

let  selectl  =  "select  *  from  journlst  where  ",  queryl  clipped 
prepare  select_2  from  selectl 

let  select2  ■  "select  count!*)  from  joundst  where  ",  queryl  dipped 

prepare  jor_cnt  from  select2 

declare  jor_cTirs  cursor  for  jor_cnt 

foreach  jor_curs  into  cnt  end  foreach 

declare  jLcurs  SCROLL  CURSOR  FOR  select_2 

let  chosen  =  FALSE 

OPEN  j_cur3 

MESSAGE  "Searching..." 

FETCH  FIRST  j.  curs  into  T Joumlst.* 

IF  status -NOTFOUND 
THEN 


MESSAGE  "No  Journal  Found" 

SLEEP  1 
MESSAGE  "" 

ELSE 

display  "  ",  cnt,  "  rows  found"  at  17,2  attribute(reverse) 
CALL  viewJoumO 

ENDEF 


CLOSE  j_curs 
END  FUNCTION 
FUNCTION  vlewJoumO 
CALL  di-spnameO 
let  tmp_cnt  =»  1 
display  ""  at  17,2 

display  "  ",tmp  cnt,  "  of  ",  cnt,  "  rows"  at  17,2 
MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  Journal  in  the  list."  HELP  170 
FETCH  NEXT  j_curs  INTO  TJoumlst.* 
let  tmp  cnt  »  tmp  cnt  +  1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  Journals  in  this  direction." 
SLEEP  1 


let  tmp_cnt »  cnt 
MESSAGE  "" 

FETCH  LAST  j_curs  INTO  TJoumlst.* 
END  IF 


display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  17,2 
attribute! reverse) 
call  dispname!) 

COMMAND  "Previous" 

"View  the  Previous  Journal  in  the  list."  HELP  170 
FETCH  PREVIOUS  Loirs  INTO  TJoumlst.* 
let  tmp  cnt  ■  tmp  cnt  - 1 
IF  status  «  NOTFOUND  THEN 

MESSAGE  "No  more  Journals  in  this  direction." 
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SLEEP  1 
MESSAGE  "" 
let  tmp_cnt » 1 

FETCH  HRST  j_curs  INTO  TJoumlst  * 

END  IF 

display  "  ",  tnip_cnt,  "  of  ",  cnt,  "  rows"  at  17,2 
attribute(reverse) 
call  dispnameO 
COMMAND  "First" 

"View  the  first  Journal  in  the  list."  HELP  170 
FETCH  HRST  j_curs  INTO  TJoumlst.* 
let  tmp_cnt  =  1 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  17,2 
attributelreverse) 
call  dispnameO 
COMMAND  "Ust" 

"View  the  Last  Journal  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  i_curs  INTO  T Joumlst.* 
let  tmp_cnt  =  cnt 
message  "" 

display  "  ",  tmp_cnt, "  of  ",  cnt, "  rows"  at  17,2 
attributelreverse) 
message  "" 
call  dispnameO 
COMMAND  "Update" 

"Update  Journal  in  Journal  Vocabulary"  HELP  171 
call  update JoumO 
COMMAND  "Delete" 

"Delete  Journal  from  Journal  Vocabulary"  HELP  908 
prompt  "Are  you  sure  you  want  to  delete  this  Journal  (y/n)?  " 
for  answer 
IF  answer  » 
then 

call  deleteJoumO 

else 

next  option  "Next" 

END  IF 

COMMAND  "Exir  "Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 
FUNCTION  dispnameO 
define 

jnamel  char(60), 
jname2  char<60) 

let  jnamel  ■  T_joumlst.jname{l,601 
let  jnaine2  ■  TJoumlst.  jnamel  61,120) 
display 

TJoumlst.jacquis, 

Tjoumlst.jcode, 

jnamel, 

jname2, 

T_joumlst.jabrv 

to 

jacquis,  jcode,  jname,  jnm,  jabrv 
END  FUNCTION 
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#Book  FUNCTION 
FUNCTION  bJIStO 
define 

answer  chart  1 )  _ 

open  window  bwl  at  3,3  with  20  rows,  69  columns  ATTRIBUTE  (BORDER) 

open  form  s_book  from  "vocbook" 

display  form  s_book 

let  chosen  =  FALSE 

menu  "BOOK-V(XABUL/aRY" 

COMM.-UsrD  "Add" 

"Add  Book  to  Book  Vocabulary"  HELP  906 
call  add_book() 

COMMAND  "Fmd" 

"Fmd  Book  in  Book  Vocabulary"  HELP  907 
call  query  bookO 
COMMAND  "Exir 

"Exit  from  Book  Vocabulary  Modification"  HELP  2 
exit  menu 
ENT)  menu 
Close  window  bwl 
clear  screen 
END  FUNCTION 
FUNCTION  add_book0 
define 

bname2  chart60), 
bnamel  chart60), 
brow  integer 
MESSAGE  "" 

CLEAR  FORM 
let  sw  »  0 
INPUT  BY  NAME 

T  booklst.bname  THRU  T  booklstbisbn 
ON  KEY  (EMTERRUPT) 
let  SW  a  1 
EXIT  INPUT 
END  INPUT 

IF  sw  .  1  then  RETURN  end  if 
let  T_booklst.bacquis  *  0 
let  T.booklst.bcode  »  "BOOOOO" 
insert  into  booklst  values  (T  booklst.*) 
let  T.booklst.bacquis  »  SQLb^5QLERRD(2l 
let  T_booklst.bcode  »  "B",T_booklst.bacquis  using  "&&&&&" 
update  booklst  set  bcode  >  T.booklst.bcc^e 
where  booklst.bacquis  «  T_booklst.bacquis 
display  T.booklst.bacquis  to  bacquis 
display  T.booklst.bcode  to  bcode 
MESSAGE  "Row  Added" 
sleep  1 

MESSAGE  "" 

END  FUNCTION 
FUNCTION  updata_book() 
define 

bname2  chart60), 
bnamel  chart60), 
brow  integer 
let  sw  a  0 
INPUT  BY  NAME 
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T_booklst.*  WITHOUT  DEFAULTS 
ON  KEY  (INTERRUPT) 
let  sw  =  1 
EXIT  INPUT 
END  INPUT 

IF  sw  =  1  then  RETURN  end  if 
UPDATE  booklst 

SET  booklst.*  =  T.booklst.* 

where  booklst .bcode=  T_booklst.bcode 
MESSAGE  "Row  Updated." 

SLEEP! 

MESSAGE  "" 

END  FUNCTION 
FUNCTION  delet®_book() 

DELETE  FROM  booklst  WHERE  bcode=  T_booklst.bcode 
CLEAR  FORM 
MESSAGE  "Row  Deleted." 

SLEEP! 

MESSAGE  "" 

END  FUNCTION 
FUNCTION  query_book() 
clear  form 
let  int_flag  »  0 
construct  query! 
on 

bcode,  bname,  bedno,  bvol, 
bdate,  bpub, 

bpubplace,  beditor,  bisbn 
from 

booklst.bcode,  booklst.bname,  booklstbedno,  booklst.bvol, 
booklst.bdate,  booklst.bpub, 
bcckist.bpubplace,  bookist.beditor,  booklst.bisbn 
if  int_flag  <>  0  then  return  end  if 

let  select!  »  "select  *  from  booklst  where  ",  query!  clipped 
prepare  select_3  from  select! 

let  select2  ■  "select  count(*)  from  booklst  where  ",  query!  dipp>ed 

prepare  bk_cnt  from  select2 

declare  bk_curs  cursor  for  bk_cnt 

foreach  bk_curs  into  cnt 

end  foreach 

declare  b_curs  SCROLL  CURSOR  FOR  se!oct_3 
let  chosen  ■  .PALSE 
OPENb  curs 

MESSAGE  "  SEARCHING..." 

FETCH  FIRST  b_curs  into  T.booklst.* 

IF  status  -  NOTTOUND 
THEN 

MESSAGE  "No  Book  Four  1" 

SLEEP! 

MESSAGE  "" 

ELSE 

display  "  ",  cnt,  "  rows  found"  at  !6,2  attributefreverse) 
CALL  bdispnamcO 
CALL  view  bookO 
END  IF 
CLOSE  b  curs 
END  FUNCTION 
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FUNCTION  view_book() 
let  tinp_cnt  =  1 
display  ""  at  16,2 
MENU  '3ROWSE'' 

COMMAND  "Next" 

"View  the  next  Book  in  the  list."  HELP  170 
FETCH  NEXT  b_curs  INTO  T_bookIst.* 
let  tmp_cnt  =  tmp_cnt  +  1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Books  in  this  direction." 

SLEEP  1 

let  tmp_cnt  *  cnt 
MESSAGE  "" 

FETCH  LAST  b  curs  INTO  T.booklst* 

END  IF 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  16,2 
attributefreverse) 
call  bdispnameO 
COMMAND  "Previous" 

"View  the  Previous  Book  in  the  list."  HELP  170 
FETCH  PREVIOUS  b.curs  E^nO  T.booklst.* 
let  tmp_cnt »  tmp_cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  book  in  this  direction." 

SLEEP  1 
MESSAGE  "" 
let  tmp  cnt  *  1 

FETCH  FIRST  b  curs  INTO  T  booklst.* 

END  IF 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  16,2 

attributefreverse) 

call  bdispnameO 

COMMANT)  "First"  "View  the  first  Book  in  the  list."  HELP  170 
FETCH  FIRST  b_curs  INTO  T.booklst  • 
let  tmp_cnt »  1 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  16,2 

atthbutefreverse) 

call  bdispnarrteO 

COMMAND  "Last"  "View  the  Last  Book  in  the  list."  HELP  170 
message  "Searching  for  last  record...." 

FETCH  LAST  b.curs  INTO  T.booklsf 
let  tmp.cnt  *  cnt 
message  "" 

display  "  ",  tmp.cnt,  "  of  ",  cnt,  "  rows"  at  16,2 

attributelreverse) 

call  bdispnameO 

COMMAND  "Update"  "Update  Book  m  Book  Vocabulary"  HELP  171 
call  bdispnameO 
call  update.bookO 

COMMAND  "Delete"  "Delete  Book  from  Book  Vocabulary"  HELP  909 
.  call  bdispnameO 

prompt  "Are  you  sure  you  want  to  delete  this  Book  (y/n)?  " 
for  answei 
IF  answer  ■  "y" 
then 

call  delete.bookO 
ELSE 
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NEXT  OPTION  "Find" 

END  IF 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 
FUNCTION  bdlspnameO 
display 

T_booklst.bacquis, 

T_booklst.bcode, 

T_book]st.bname, 

T_booklst.bedno, 

T_booklst.bvol, 

T_bookIst.bdate, 

T_booklst.bpub, 

T_booklst  bpubplace, 

T_booklst.beditor, 

T_bcokIst.bisbn 

to 

bacquis,  bcode,  bname,  bedno, 
bvol,  bdate, 

bpub,  bpubplace,  beditor,  bisbn 
END  FUNCTION 
#Keyv,'ord  FUNCTION 
FUNCTION  kJiStO 
define 

answer  chard) 

open  window  kwl  at  10,3  with  10  rows,  66  columns  ATTRIBUTE  (BORDER) 

open  form  s_key  from  "vockeys" 

display  form  s  key 

menu  'ICEYWORD.USTING" 

COMMAND  "Add" 

'  \dd  Keyword  to  Keytvord  Vocabulary"  HELP  903 
callddd  klistO 
COMMAND  "Find" 

"Find  Keyword  in  Keyword  Vocabulary"  KELP  904 
call  query_klist() 

COMMAND  "Exit"  "Exit  from  Keyword  Vocabulary  Modification"  HELP  2 
exit  menu 
END  menu 
Qose  window  V.wl 
clear  screen 
END  FUNCTION 
FUNCTION  add.kllstO 
MESSAGE  "" 

CLEAR  FORM 

INPUT  by  name  T  keylisL* 

ON  KEY  (INTERRUPT) 
let  sw  »  1 
EXJT  INPUT 
END  INPUT 

if  sw  ■  1  then  return  end  if 
insert  into  keylir  I  values  (T  keylist.*) 

MESSAGE  "Rov^  id"  " 
sleep  1 

MESSAGE  "" 
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END  FUNCTION 
FUNCTION  update_kl!st() 

define 

tn’p_code  like  keylist.kcode 
let  tmp_code  =  T  keylist.kcode 
INPUT  by  name  T_keylist.’  WITHOUT  DEFAULTS 
ON  KEY  (INTERRUPT) 

EXIT  INPUT 
END  INPUT 
UPDATE  keylist 

SET  keylist.*  *  T_keylist.* 

where  keylist.kcode®  tmp  code 
MESSAGE  "Row  Updated." 

SLEEP  I 
MESSAGE  "" 

END  FUNCTION 
FUNCTION  delete  klist() 

DELETE  FROM  keylist  WHERE  kcode®  T  keyIist.kcode 
CLEAR  FORM 
MESSAGE  "Row  Deleted." 

SLEEP  1 
MESSAGE  "" 

END  FUNCTION 
FUNCTION  query_kll!it() 
clear  form 
let  mt_flag  »  0 

construct  queryl  on  kcode,  kword  from  keylist* 

if  int_nag  <>  0  then  return  end  if 

let  selectl  »  "select  *  from  keylist  where  ",  queryl  clipped 

prepare  select_key  from  selectl 

let  select2  «  "select  countC)  from  keylist  where  ".  queryl  dipped 
prepare  kl_cnt  from  select2 
declare  k]„curs  cursor  for  kl_cnt 
foreach  kl_cur5  into  cnt 
end  foreach 

declare  k.curs  SCROLL  CURSOR  FOR  select.key 
let  chosen  *  FALSE 
OPEN  k_curs 
call  view_klist() 

CLOSE  k_curs 
END  FUNCTION 
FUNCTION  vl«w_kll)|l() 

FETCH  FIRST  k_curs  into  T  keylist* 

IF  status  -  NOTPOUND  THEN 

MESSAGE  "No  Keyword  Found" 

SLEEP  1 
MESSAGE  "" 

ELSE 

display  "  ",  cnt,  "  rows  found"  at  93  at  tribute!  reverse) 
CALL  dispkeyO 
CALL  view  klistO 
END  IF 
let  tmp_cnt  =  1 
display  ""  at  93 
MENU  "BROWSE" 

COMMAND  "Nexr 

_ "View  the  next  Keyword  in  the  list."  HELP  170 
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FETCH  NEXT  k.curs  INTO  T.keylist  * 
let  tinp_cnt  =  tm^_cnt  +  1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  Keywords  in  this  direction." 

SLEEP! 

let  tmp_cnt  =  cnt 
MESSAGE 

FETCH  I  T  k  curs  INTO  T.keylist.* 

END  IF 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  9,3 

attributelreverse) 

call  dispkeyO 

COMMAND  "Previous" 

"View  the  Previous  Keyword  in  the  list."  HELP  170 
FETCH  PREVIOUS  l4_cu,rs  INTO  T.keylist.-' 
let  tmp_cnt  =  tmp  cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  Keywords  in  this  direction." 

SLEEP! 

MESSAGE  "" 
let  tmp_cnt  * ! 

FETCH  FIRST  k_curs  INTO  T.keyUst.* 

END  IF 

display  "  ",  tmp_cnt,  "  of  ",  cnt, "  rows"  at  9,3 

attributefreverse) 

call  dispkeyO 

COMMAND  "First" 

"View  the  first  Keyword  in  the  list."  HELP  !70 
FETCH  HRST  k  .curs  LNTO  T.keylist.* 
let  tmp.cnt  =* ! 

display  "  ",  tmp„cnt,  "  of ",  cnt, "  rov/s"  at  9,3 
attributefreverse) 
call  dispkeyO 
COMMAND  "Ust" 

"View  the  Last  Keyword  in  the  list."  HELP  !70 
message  "Searching  for  last  record...." 

FETCH  LAST  k_curs  INTO  T.keylisL* 
let  tmp_cnt »  cnt 
message  "" 

display  "  ",  tmp_cnt, "  of ",  cnt, "  rows"  at  9,3 
attributefreverse) 
message  "" 
call  dispkeyO 
COMMAND  "Update" 

"UpxJate  Keyword  in  Keyword  Vocabulary"  HELP  !7! 
call  update_klistO 
COMMAND  "Delete" 

"Delete  Keyword  from  Keyword  Vocabulary"  HELP  9!0 
prompt  "Are  you  sure  you  want  to  delete  this  Keyword  (y/n)?  " 
for  answer 
IF  answer  ■  "y" 
then 

call  delete_klistO 
else 

_ next  option  'Tslexf' _ 
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END  IF 

COMMAND  "Exir  "Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 
FUNCTION  dispkeyO 

display  by  name  T  keylist.* 

END  FUNCTION 


#tksvoc2.4gI 

{ 

TITL  E;  tksvoc2.4gl 

Copyright,  Harold  L  Trammel,  1987-1988 
University  of  Illiois,  CVM,  lAPIC 
Funded  by  US  Army  Contract  DAMD-17-C-7114 
Purpose:  provide  basic  clinical  finding  vocabulary  management  menu, 
site  vocabulary,  morphology  vocabulary 
Contains  the  following  functions: 
sJistO 
add_site{) 
update_site() 
delete_site() 
find_site{) 
view_site<) 
add^morphO 
find_morph() 
morph_findO 
view_morph() 

u  pda  te_morph(tmp_morphnum) 

delete_morph(tmp_morphnum) 

see_morph(tmp_morphnum) 

morphsyn_findO 

view_morphsyn() 

see  morphsynCtmp  morphcode) 

) 

DATABASE  tkstest 
GLOBALS  "tksglob.4gr 

######«#«#####«##########«#«#«####«######«###«#########«####««#«#### 
FUNCTION  SJISIO 

menu  "SIGN-VOCABULARY" 

COMMAND  "Site" 

"Site  information"  HELP  913 
menu  "SITE-VOCABULARY" 

COMMAND  "Add"  "Add  Site  Information" 
call  add_site() 

COMMAND  "Find"  "Find  Site  Information" 
call  find  siteO 

COMMAND  "Exir  "Exit  menu" 
exit  menu 
end  menu 

COMMAND  "Morphology" 

"Access  Morphology  Vocabulary"  HELP  91 1 
menu  "MORPHOLOGY-VOCABULARY" 
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COMMAND  "Add"  "Add  Morphology  Information" 
call  add_morph() 

COMMAND  "Find"  "Find  Morphology  Information" 
call  find_morph() 

COMMAND  "Exit"  "Exit  menu" 
exit  menu 
end  menu 

COMMAND  "Ub-Test" 

"Access  Laboratory  Test  Vocabulary"  HELP  912 
menu  '^AB-TEST-VOCABULARY" 

COMMAND  "Add"  "Add  Lab-Test  Information" 
call  addJabO 

COMMAND  "Find"  "Find  Lab-Test  Information" 
call  findJabO 

COMMAND  "Exir  "Exit  menu" 
exit  menu 
end  menu 

COMMAND  "Disease" 

"Access  Disease  Vocabulary"  HELP  914 
menu  "DISEASE-VOCABULARY" 

COMMAND  "Add"  "Add  Disease  Information" 
call  add.signO 

COMMAND  "Find"  "Find  Disease  Information" 
call  find_sign() 

COMMAND  "Exit"  "Exit  menu" 
exit  menu 
end  menu 
COMMAND  "Exit" 

"Exit  from  Sign  Vocabulary  Modification"  HELP  2 
exit  menu 
END  menu 
END  FUNCTION 

FUNCTION  add_slte() 
call  sitewinopenO 
let  sw  a  0 

INPUT  by  name  T_tkssite.* 

ON  KEY  (INTERRUPT) 
let  sw  » 1 
EXIT  INPUT 
END  INPUT 

IF  sw  »  1  then  RETURN  END  IF 
insert  into  tkssite  values  (T_tkssite.*) 

MESSAGE  "Row  Added" 
sleep  1 

MESSAGE  "" 
call  sitewincloseO 
END  FUNCTION 

FUNCTION  update^stteO 
let  sw  »  0 

INPUT  BY  NAME  T.lkssite.*  WITHOUT  DEFAULTS 
ON  KEY  (INTERRUPT 
let  sw  » 1 
EXIT  INPUT 


END  INPUT 
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IF  sw  =  1  then  RETURN  END  IF 
UPDATE  tkssite 

SET  tkssite.*  =«  T_tkssite.* 

where  Ikssite-sitecode*  T_tkssite.sitecode 

MESSAGE  "Row  Updated." 

SLEEP  3 
MESSAGE  "" 

END  FUNCTION 

#####################################«###########«################## 
FUNCTION  delete_site<) 

DELETE  FROM  tkssite  WHERE  sitecode=  T_tkssite.sitecode 
MESSAGE  "Row  Deleted." 

SLEEP  3 
MESSAGE  "" 

B>ID  FUNCTION 

FUNCTION  flnd_slte() 
define 

queryl  chart300), 
selectl  char(300), 
answer  chard), 
found  smallint 
call  sitewinopenO 

message  "  Enter  search  criteria  and  hit  ESC  " 
let  int_flag  =  0 
construct  queryl 
on 

sitecode, 

systemcode,  systemname, 
organcode,  organname, 
locatecode,  locaiename, 
snotopr.um 
from  tkssite.* 

if  int_flag  <>  0  the.n  return  end  if 

let  selectl  »  "select  *  from  tkssite  where  ",  queryl  clipped 

prepare  select_l  from  selectl 

let  select2  ■  "select  count!*)  from  tkssite  where  ".queryl  clipped 
prepare  sn_cnt  from  select2 
display  "  Searching ..."  at  17,2  attribute{reverse) 
declare  sn_curs  cursor  for  sn_cnt 
foreach  sn_curs  into  cnt 
end  foreach 

declare  q_curs  SCROLL  CUT  JOR  FOR  select_l 
let  chosen  ■  FALSE 
OPEN  q_c  jrs 
CALL  view_site() 

CLOSE  q_curs 
call  sitewincIoseO 
END  FUNCTION 

FUNCTION  vlew_site() 
let  tmp_cnt  ■  1 

FETCH  FIRST  q  curs  into  T  tkssite.* 

IF  status -NOTFOUND 
THEN 

MESSAGE  "No  Site  Found" 
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SLEEPS 
MESSAGE  "" 

ELSE 

display  ""  at  17,2 

display  "  ",  cnt,  "  rows  found"  at  17,2  atlribute(reverse) 
DISPLAY  BY  NAME  T_tkssite  * 

END  IF 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  site  in  the  list."  HELP  170 
FETCH  NEXT  q_curs  INTO  T.tkssite.* 
let  tmp  cnt  =  tmp  cnt  + 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  sites  in  this  direction  " 
SLEEPS 

let  tmp  cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  q  curs  INTO  T.tkssite.* 

END  IF 

display  ""  at  17,2 

display  "  ",tmp_cnt,"  of  "  cnt,"  rows"  at  17,2 
attributelreverse) 

DISPLAY  BY  NAME  T.tkssite.* 

COMMAND  "Previous" 

"View  the  Previous  site  in  the  list."  HELP  170 
FETCH  PREVIOUS  q_curs  INTO  Tjkssite.* 
let  tmp  cnt  =  tmp  cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  sites  in  this  direction." 

SLEEPS 

MESSAGE  "" 

let  tmp  cnt »  1 

FETCH  HRST  q  curs  INTO  T  tkssite.* 

END  IF 

display  ""  at  17,2 

display  "  ",  tmp_cnt, "  of ",  cnt, "  rows"  at  17,2 
c  ‘tribute(reverse) 

DISPLAY  BY  NAME  Tjkssite.* 

COMMAND  "Rrst" 

'^iew  the  first  site  in  the  list."  HELP  170 
FETCH  FIRST  q_curs  INTO  T_tkssite.* 
let  tmp_cnt » 1 
display  ""  at  17,2 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  17,2 
attribute(reverse) 

DISPLAY  BY  NAME  T  tkssite.* 

COMMAND  "Usr 

"View  the  Last  site  in  the  list."  HELP  170 
FETCH  LAST  q_curs  INTO  T_tkssite.* 
let  tmp_cnt »  cnt 
message  "" 
display  ""  at  17,2 

display  "  ",  tmp_cnt,  "  of ",  cnt, "  rows"  at  17,2 
attribute(reverse) 

DISPLAY  BY  NAME  T  tkssite.* 

COMMAND  "Update" 

_ "TJpdate  site  in  Site  Vocabulary"  HELP  171 _ 
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call  update_site{) 

COMMAND  "Delete" 

"Etelete  site  from  Site  Vocabulary"  HELP  915 
prompt  "Are  you  sure  you  want  to  delete  this  site  (y/n)?  " 
for  answer 
IF  answer  =  "y"  then 
call  delete  sited 
END  IF 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

FUNCTION  add_morph() 
call  morphwinopenO 
let  sw  a  0 

options  input  wrap 
input  by  name  T_morphlst.* 
on  key  (interrupt) 
let  sw  =1 
exit  input 

after  field  morphnum 

display  "Checking  for  duplicates ..."  at  20^ 
select  count(*)  into  x  from  morphlst 

where  morphnum  =  T_morphlst.morphnum 
if  X  >  0 
then 

error  beep,  "Value  already  used" 
call  see_morphsyn(T_morphlst.moTphnum) 
next  field  morplmum 
end  if 

after  field  morphtenn 

display  "Giecking  for  duplicates ..."  at  20,3 
select  count(*)  into  x  from  morphlst 

where  morphterm  *  T..morphlst.morphterm 
if  X  >  0 
tlien 

error  beep,  "Value  already  used" 
call  see_morphsyn(T_morphlst.morphnum) 
next  field  morphterm 
end  if 
end  input 

if  sw  ■  1  then  return  end  if 

insert  into  morphlst  values(T_morphlst.*) 

insert  into  morphsynlst  values(T_morphlst.morphnum,T_morphlst.morphterm) 
call  see_morphsyn(T_morphlst.morphnum) 
input  array  msyn_array  without  defaults  from  holder.* 
on  key  (interrupt) 
let  sw  =1 
exit  input 

display  "Hit  ESC  to  continue"  at  20,3 

before  field  morphcode 
let  curr_arr  «  arr_curr() 

let  msyn_array[curr_arr].morphcode  =  T_morphlst.morphnum 
_ next  field  morphsyn _ 
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end  input 

if  sw  =»  1  then  return  end  if 

delete  from  morphsynlst  where  morphcode  =  T_morphlsl.morphnum 
for  counter  =  1  to  arT_count() 

insert  into  morphsynlst  values(msyn_array(counterj.*) 
end  for 

END  FUNCTION 

#####################################«######################### 
FUNCTION  flnd_morph() 
call  morphwdnopenO 

menu  'TIND_MORPHOLOGY_VOCABULARY" 

COMMAND  'Treferred.Term" 
call  morph_find() 

COMMAND  "Synonyms" 
call  morphsyn_findO 
COMMAND  "Exit" 
exit  menu 
end  menu 

call  morphwincloseO 
END  FUNCTION 

############################################################### 
FUNCTION  morphJindO 
let  int_flag=0 
construct  queryl 
on 

morphnum,  morphterm,  morphdef,  morphsnocde,  morphsnotrm 
from 

morphnum,  morphterm,  morphdef,  morphsnocde,  morphsnotrm 
if  int_f]ag  <>  0  then  return  end  if 

let  seTectl  »  "Select  *  from  morphlst  where  ",  queryl  clipped 
prepare  find_morph  from  selectl 

let  select2  *  "select  count(*)  from  morphlst  where  ",  queryl  clipped 
prepare  cnt_morph  from  select2 
display  "  Searching ...  "  at  20,3 
declare  cnt_mrph  cursor  for  cnt_morph 
foreach  cnt_nruph  into  cnt 
end  foreach 
close  cnt_mrph 

declare  m_curs  scroll  cursor  for  find_morph 

op}en  m_curs 

call  view_morphO 

close  m  curs 

END  FUNCTION 

FUNCTION  vlew_morph() 
let  tmp_cnt » 1 

FETCH  FIRST  m_curs  into  T_morphlst.* 

IF  status  »  NOTFOUND 
THEN 

MESSAGE  "No  Morphology  Found" 

SLEEP  3 
MESSAGE  "" 

ELSE 

display  ""  at  20,3 

display  "  ",  cnt,  "  rows  found"  at  20,3  attribute(reverse) 

_ DISPLAY  BY  NAME  T_morphlst.* _ 
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call  see_morphsyn(T_morphlst.morphnum) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  m_curs  INTO  T.morphlst.* 
let  tmp  cnt  =  tmp  cnt  +  1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  term'  in  this  direction." 
SLEEPS 

let  tmp  cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  m  curs  INTO  T.morphlst.* 

END  IF 

display  ""  at  20,3 

display  "  ",tmp_cnt,"  of  ",  cnt,"  rows"  at  203 
attribute(reverse) 

DISPLAY  BY  NAME  T.morphlst* 
call  see_morphsyn(T_morphIst.morphnum) 
COMMAND  "Previous" 

"View  the  Previous  term  in  the  list."  HELP  170 
FETCH  PREVIOUS  m_curs  INTO  T.morphlst* 
let  tmp_<nit  =  tmp_cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 

MESSAGE  "" 

let  tmp  cnt »  1 

FETCH  FIRST  m_curs  INTO  T_morphlsl.* 

END  IF 

display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  row-s"  at  203 
attributc(revfcrse) 

DISPLAY  BY  NAME  T.morphlst.* 
call  see_morphsyn(T_morphlst.morphnum) 
COMMAND  "First" 

"View  the  first  term  in  the  list."  HELP  170 
FETCH  FIRST  m_curs  INTO  T_morph!sl.* 
let  tmp_cnt » I 
display’""  at  203 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  203 
attributelreverse) 

DISPLAY  BY  NAME  T.morphlst.* 
call  see_morphsyn(T  morphlst.morphnum) 
COMMAND  "Lasr 

"View  the  Last  term  in  the  list."  HELP  170 
FETCH  LAST  m_curs  INTO  T.morphlst.* 
let  tmp_cnt »  cnt 
message  "" 
display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  203 
attributelreverse) 

DISPLAY  BY  NAME  T.morphlst." 
call  see_morphsyn(T  morphlst.morphnum) 
COMMAND  "Update"  ’ 

"Update  term  in  Morphology  Vocabulary"  HELP  171 
_ call  update_morph(T_morphlst.morphnum) _ 
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COMMAND  "Delete" 

"Delete  tenn  from  Morphology  Vocabulary"  HELP  915 
prompt  "Are  you  sure  you  want  to  delete  this  term  (y/n)?  " 
for  answer 
IF  answer  =  "y"  then 

call  delete  morphIT  morphlst.morphnum) 

END  IF  ~ 

COMMAND  "Exir 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

############################################################### 
FUNCTION  update_morph(tmp_morphnum) 
define 

tmp_morphnum  like  morphlst.morphnum, 
tmp_morphterm  like  morphlst.morphterm 
let  tmp_morphterm  »  T_morphlst.morphterm 
options  input  wrap 

input  by  name  T_morphlsL*  without  defaults 
on  key  (interrupt) 
let  sw  »1 
exit  input 

after  field  morphnum 

if  T_morphlst.morphnum  <>  tmp.morphnum 
then 

select  count!*)  into  x  from  morphlst 

wheie  morphnum  ■  T_morphlst.morphnum 
ifx>0 
then 

error  beep,  "Value  already  used" 
call  see_morphsyn{T_morphlst.morphnum) 
next  field  morphnum 
end  if 


end  if 

after  field  morphterm 

if  T.morpfilsLmorphterm  <>  tmp_morphterm 
then 

select  counK*)  into  x  from  morphlst 

where  morphterm  ■  T_morphlstjnorphterm 
if  x  >  0 
then 

error  beep,  "Value  already  used" 
call  see_morphsyn(T_morphlst.morphterm) 
next  field  morphterm 
end  if 


end  if 
end  input 

if  sw  »  1  then  return  end  if 

update  morphlst  set  morphlst.*  »  T  morphlst.* 

{ 
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) 

END  FUNCTION 


FUNCTION  d«l«t«_morph(tmp_morphnum) 

define 
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tmp_morphnum  like  morphlst.morphnum 
call  alrt260open() 

prompt  "Do  you  really  want  to  delete  this  term?  (y/n)  " 
for  answer 

if  upshift(answer)  =>  "N" 
then 

message  "Row  not  deleted" 

sleep  1 

message 

return 

else 

select  count(*)  into  x  from  morphsynlst 
where  nwrphcode  » tmp_morphnum 
ifx>l 
then 

DELETE  FROM  morphlst  WHERE  morphnum=  tmp  morphnum 
MESSAGE  "Row  Deleted." 

SLEEP  1 
MESSAGE 
else 

prompt  "There  are  associated  synonyms.  Delete  them  also?  (y/n) " 
for  answer 

if  upshiftfanswer) »  "Y" 
then 

delete  from  morphsjmlst 

where  morphcode  =«  tmp_morphnum 

else 

return 
end  if 

end  if 

end  if 

call  alrt260close<) 

END  FL'hfCnON 

FUNCTION  see_morph(imp_morphnum) 

define 

tmp_morphnum  like  morphlst.morph.num 
select  *  into  T_morphlst.*  from  morphlst 
where  morphnum  *  tmp_morphnum 
display  by  name  T  morphlst.* 

END  FUNCTION 

##############««#########################«#############«#####«# 
FUNCTION  morphsynJIndO 
let  int_flag=*0 

construct  queryl  on  morphcode,  morphsyn  from  holder.* 
if  int_flag  <>  0  then  return  end  if 

let  selectl  »  "Select  *  from  morphsynlst  where  ",  queryl  clipped 
prepare  find.morphsyn  from  selectl 

let  select2  »  "select  count!*)  from  morphsynlst  where  ",  queryl  clipped 
prepare  cnt_morphsyn  from  select2 
display  "  Searching ....  "  at  204 
declare  cnt_mrphsyn  cursor  for  cnt_morphsyn 
foreach  cnt_mrphsyn  into  cnt 
end  foreach 
close  cnt_mrphsyn 

declare  msyn_curs  scroll  cursor  for  find.morphsyn 
open  msyn_curs 
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call  view_inorphsyn() 
close  msyn  cuis 
END  FUNCTION 

FUNCDON  vlew_r..orphsyn() 

let  tmp_cnt  =  1 

FETCH  FIRST  msyn  curs  into  T_morphsynlst.* 

IF  status  »NOTFOUND 
THEN 

MESSAGE  "No  Morphology  Found" 

SLEEPS 
MESSAGE  "" 

ELSE 

display  ""  at  20,3 

display  "  ",  cnt,  "  rows  found"  at  20,3  attributelreverse) 

DISPLAY  BY  NAME  T.morphsynlst.* 
call  see_morph(T_morphsyi\lst.morphcode) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  msyn_curs  INTO  T_morphS3mlst.* 
let  tmp  cnt » tmp_cnt  +  1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 

let  tmp_cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  msyn  curs  INTO  T_morphsynl3t.* 

END  IF 

display  ""  at  20^3 

display  "  ",tmp_cnt,"  of  ",  cnt,"  rows"  at  203 
attribute(reverse) 

DISPLAY  BY  NAME  T.morphsynlst,* 
call  see_morph(T_morphsynIst.morphcode) 

COMMAND  "Previous" 

"View  the  Previous  term  in  the  list"  HELP  170 
FETCH  PREVIOUS  msyn_curs  INTO  T_morphsynlst.* 
let  tmp_cnt » tmp_cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 
MESSAGE  "" 
let  tmp_cnt » 1 

FETCH  FIRST  msyn  curs  INTO  T.morphsynlst.* 

END  IF 

display  ""  at  203 

display  "  ",  tmp.cnt,  "  of ",  cnt,  "  rows"  at  203 
attribute(reverse) 

DISPLAY  BY  NAME  T.morphsynlst.* 
call  see.morph(T  morphsynlst.morphcode) 

COMMAND  "First"  ' 

"View  the  first  term  in  the  list."  HELP  170 
FETCH  FIRST  msyn.curs  INTO  T.morphsynlst.* 
let  tmp.cnt  *  1 
display  ""  at  20,3 

_ display  "  ",  tmp.cnt,  "  of  ",  cnt,  "  rows"  at  203 _ 
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attribute(reverse) 

DISPLAY  BY  NAME  T_morphsynIst.* 
call  see_morph(T_morphsynlsl.morphcode) 
COMMAND  "Ust"  ~ 

"View  the  Last  term  in  the  list."  HELP  170 
FETCH  LAST  msyn_curs  INTO  T_morphsynlst.* 
let  tmp_cnt  =  cnt 
message  "" 
display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  203 
attributelreverse) 

DISPLAY  BY  NAME  T_morphsynlst.» 
call  see_morph(T_morphsynlst.morphcode) 
COMMAND  "Updat? 

"Update  term  in  Morphology  Vocabulary"  HELP  171 
#cal!  uf>date_morphsyn{T  morphsynlst.morphcode) 
COMMAND  "Exir 

"Leave  this  menu"  HELP  2 
EXITMENU 
END  MENU 
END  FUNCTION 

FUNCTION  s««_morphsyn(tmp_morphcode) 

define  tntp_morphcode  like  morphsynlst-nvDrphcode 
display  "  Hit  ESC  to  leave  array"  at  20,3  attributelreverse) 
declare  morph_see  cursor  for 
select  •  from  morphsynlst 

where  morphcode  =»  tmp_morphcode 
order  by  mcrphsyn 
let  counter  « 1 

foreach  morph_see  into  msyn..array(counterI.* 
let  counter  =  counter  +1 
if  counter  >  50 

then  exit  foreach 
end  if 
end  foreach 

call  set_count(counter  -1) 
display  array  msyn_array  to  holder.* 
on  key(interrupt) 
exit  display 
end  display 
close  morph_see 
END  FUNCTION 


I 

I 

I 

I 

I 

I 
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#tksvoc3.4gl 

{ 

TITLE;  tksvoc3.4gl 

Copyright,  Harold  L.  Trammel,  1987-1988 

University  of  Illiois,  CVM,  lAPlC 

Funded  by  US  Army  Contract  DAMD-17-C-7114 

Contains  the  following  functions: 
addJabO 
find_!ab{) 
lab_find() 
viewJabO 

updatejab(tmpjabnum) 

deletejab(tmpjabnum) 

seejab(tmpjabnum) 

labsyn_find() 

viewJabsynO 

seejabsyn(tmpjabcode) 

add_sign() 

find.signO 

sign_find() 

view_sign() 

updale_sign(tmp_signnum) 

delete_sign(tmp_signnum) 

see_sign(tmp_signnum) 

signsyn_find() 

view_signsyn() 

see  signsynftmp  signcode) 

) 

DATABASE  tkstsst 

GLOBALS  “tksglob^gl" 

FUNCTION  addJabO 
call  labwinopenO 
let  sw  •  0 

options  input  wrap 
input  by  name  T_lablst* 
on  key  (interrupt) 
let  sw  ■! 
exit  input 
after  field  labnum 

display  "Checking  for  duplicates ..."  at  20,3 
select  count(*)  into  x  from  lablst 
where  labnum  ■  TJablst.labnum 
ifx>0 
then 

error  beep,  "A^alue  already  used" 
call  seeJabsyn(T_lablst.liibnum) 
next  field  labnum 
end  if 

after  field  labterm 

display  "Checking  for  duplicates ..."  at  20,3 
select  count!*)  into  x  from  lablst 
where  labterm  ■  T_lablst.labterm 
if  X  >  0 
then 
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error  beep,  "Value  already  used" 
call  seeJabsyn(T_lablst.labnum) 
next  field  labterm 
end  if 
end  input 

if  sw  =  1  then  return  end  if 
insert  into  lablst  values(T_lablst.*) 
insert  into  labsynlst 

values(T_lablst.labnum,T_lablst.labsys,T_lablst.labterm) 
call  seeJabsynfTJabist.labnum) 
input  array  lsyn_array  without  defaults  from  holder.* 
on  key  (interrupt) 
let  sw  =1 
exit  input 

display  "Hit  ESC  to  continue"  at  203 
before  field  labcode 

let  curr_arr  *  arr_curr<) 

let  lsyn_array[curr_arrj.labcode  =*  T_labl5t.labnum 
next  field  labsyn 
end  input 

if  sw  a  1  then  return  end  if 

delete  from  labsynlst  where  labcode  =»  T_lablst.Iabnum 
for  counter  =  1  to  arr_count() 

insert  into  labsynlst  values(lsyn_anay(counter).*) 
end  for 

END  FUN(rriON 

FUNCTION  (indJabO 
call  labwinopenO 

menu  'TIND  LAB  VCXZABLT-ARY" 

COMMAND  "Prefcrred.Term" 
call  lab_find0 
COMMAND  "Synonyms" 

•  call  labsyn_find() 

COMMAND  "Exit" 
exit  menu 
end  menu 
call  labwinclcseO 
END  FUNCTION 

#«####«###«#####«««#######«###««####««######«########«######### 

FUNCTION  labJindO 
clear  form 
let  int_flag«0 
construct  queryl 
on 

tabnum,  labterm,  labsyn,  labdef,  labsnocde,  labsnotrm 
from 

labnum,  labterm,  labsyn,  labdef,  labsnocde,  labsnotrm 
if  intjlag  <>  0  then  return  end  if 
let  sele^  tl  ■  "Select  *  from  lablst  where  ",  queryl  clipped 
prepare  find_lab  from  selectl 

let  select2  »  "select  count(*)  from  lablst  where  ",  queryl  clipped 

prepare  cntjab  from  select2 

display  "  Searching ....  "  at  203 

declare  cnt_labs  cursor  for  cnt_lab 

foreach  cnt_Iabs  into  cnt 


214 


Toxin  Knowledge  System  Source.  Codi 


end  foreach 
close  cntjabs 

declare  l_curs  sctoII  cursor  for  findjab 

open  l_curs 

cil  viewJabO 

close  l_curs 

END  FUNCTION 

#######«#«########«#########«###########««############«######## 
FUNCTION  ViewJabO 
let  tinp_cnt  =  1 

FETCH  FIRST  l_curs  into  T_lablst.* 

IF  status  =  NOTFOUND 
THEN 

MESSAGE  "No  Lab  Test  Found" 

SLEEPS 
MESSAGE  "" 

ELSE 

display  ""  at  20,3 

display  "  ",  cnt,  "  rows  found"  at  20,3  attributefreverse) 

DISPLAY  3Y  NAME  TJablsL* 
call  seeJabsyn(T  labist.labnum) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Next" 

"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  l_curs  INTO  TJablst.* 
let  tmp_cnt  =*  tmp_cnt  + 1 
IF  status  =»  NOTFOL'ND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEP  3 

let  tnip_ont »  cnt 
MESSAGE 

FETCH  IJVSTI  curs  INTO  T  lablst.* 

END  IF 

display  ""  at  20,3 

display  "  ",tmp_cnt,"  of ",  cnt,"  rows"  at  203 
attributefreverse) 

DISPLAY  BY  NAME  TJablst.* 
call  seeJabsyn(TJablst.labnum) 

COMMAND  "Previous" 

"View  the  Previous  term  in  the  list"  HELP  170 
FETCH  PREVIOUS  l_curs  INTO  TJablst* 
let  tmp_cnt  ■  tmp,  cnt  - 1 
IF  status  ■  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEP  3 
MESSAGE  "" 
let  tmp_cnt »  1 

FETCH  HRST 1  curs  INTOT  labist.* 

END  IF 

display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  203 
attributefreverse) 

DISPLAY  BY  NAME  TJablst* 
call  seeJabsyn(T_lablst.labnum) 

COMMAND  "First" 

_ ^iew  the  first  term  in  the  list"  HELP  170 
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FETCH  HRST  Lcurs  INTO  TJablst  * 
let  tmp_cnt  =  1 
display'""  at  20,3 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  20,3 
attribute(reverse) 

DISPLAY  BY  NAME  T_lablst.* 
call  seeJabsyn(TJablst.labnum) 

COMMAND  "Last" 

"View  the  Last  term  in  the  list."  HELP  170 
FETCH  LAST  l.curs  INTO  TJablst.* 

.  let  tTnp_cnt  =  cnt 
message  "" 
display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  203 
attributefreverse) 

DISPLAY  BY  NAME  TJablst.* 
call  seeJabsyn(T_lablst.labnum) 

COMMAND  "Update" 

"Update  term  in  Lab  Test  Vocabulary"  HELP  171 
call  updateJab(T_lablst.labnum) 

COMMAND  "Delete" 

"Delete  term  from  Lab  Test  Vocabulary"  HELP  915 
prompt  "Are  you  sure  you  want  to  delete  this  term  (y/n)?  " 
for  answer 
IF  answer  »  "y"  then 

call  deleteJab(T  lablst.iabnum) 

END  IF 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

FUNCTION  updat«_lab(tmpjabnum) 

define 

tmpjabnum  like  lablst.iabnum, 
tmpjabterm  like  labist.labterm 
let  tmp_iabterm  *  TJablst.lablerm 
options  input  wrap 

input  by  name  T_lablst*  without  defaults 
on  key  (interrupt) 
let  sw  ■! 
exit  input 
after  field  labnum 

if  TJabUt.labnum  <>  tmpjabnum 
then 

select  count(*)  into  x  from  lablst 

where  labnum  ■  TJablst.labnum 
if  X  >  0 
then 

error  beep,  "Value  already  used" 
call  seeJabsyn(TJabIst.labnum) 
next  field  labnum 
end  if 

end  if 

after  field  labterm 

_ if  TJablst.iabterm  <>  tmp_labteiTn _ 
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then 

se'ect  counK*)  into  x  from  labist 

v/here  labterm  =  TJablst-labterm 
if  X  >  0 
then 

error  beep,  "Value  already  used" 
call  seeJabsyniTJablst.labterm) 
next  field  labterm 
end  if 

end  if 
end  input 

if  sw  =  1  then  return  end  if 
upxiate  labist  set  labist*  *  TJablst.* 

I 
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) 

END  RJNCnON 

FUNCTION  delet9jab(tmpjabnufn) 
define 

tmpjabnum  like  lablst-labmun 
call  alrt260open0 

prompt  "Do  you  really  want  to  delete  this  term?  (y/n)  " 
for  answer 

if  upshifKanswer) »  "N" 
then 

message  "Row  not  deleted" 
sleep  1 
message  "" 
return 
else 

select  count!*!  into  x  from  labsynlst 
where  labcode  » tmpjabnum 
ifx>l 
then 

DELETE  FROM  labist  WHERE  labnum-  tmp.labnum 
MESSAGE  "Row  Deleted  " 

SLEEP  1 
MESSAGE  "" 

else 

prompt  "There  are  associated  synonyms.  Delete  them  also?  (y/n) " 
for  answer 

if  upshift(answer)  ■  "Y"  , — 

then 

delete  from  labsynlst 

where  labcode  » tmpjabnum 
else 

return 
end  if 

end  if 

end  if 

call  alrt260close<) 

END  FUNCTION 

«##########«#«##«####«####«####«####«#####«#############«###### 
FUNCTION  SMjabftmpJabnum) 

define  tmpjabnum  like  lablst.labnum 
select  *  into  TJablst.*  from  labist 
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where  labnum  =  tmpjabnum 
display  by  name  T_lab!st.* 

END  Rn^CTION  ~ 

#*############, ^################################################ 
FUNCTION  labsynJlndO 
clear  form 
let  int_flag=0 

construct  queryl  on  labcode,  labsyn,  labsynsys  from  holder. Mabsynsys 
if  int_flag  <>  0  then  return  end  if 

let  selectl  =  "Select  *  from  labsyiUst  where  ",  queryl  clipped 
prepare  find_labsyn  from  selectl 

let  select2  =  "select  count(*)  from  labsynlst  where  ",  queryl  clipped 
prepare  cntjabsyn  from  select2 
display  "  Searching ....  "  at  20,3 
declare  cntjabssyn  cursor  for  cntjabsyn 
foreach  cntjabssyn  into  cnt 
end  foreach 
close  cntjabssyn 

declare  lsyn_curs  sctoII  cursor  for  find  Jabsyn 

open  lsyn_curs 

cil  viewJabsynO 

close  lsyn_cur3 

END  FUNCTION 

FUNCTION  ViewJabsynO 
let  tmp_cnt » 1 

FETCH  FIRST  lsyn_curs  into  TJabsynlst.* 

IF  status  =•  NOTFOUND 
THEN 

MESSAGE  "No  Lab  Test  Found" 

SLEEP  3 
MESSAGE  "" 

ELSE 

display  ""  at  20,3 

display  "  ",  cnt,  *  rows  found"  at  20,3  attribute(reverse) 

DISPLAY  BY  NAME  TJabsynlst.* 
call  seeJabCT_labsynlstlabcode) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Nexr 

"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  lsyn_curs  INTO  TJabsynlst* 
let  tmp_cnt  ■  tmp  cnt  +  1 
IF  status  -  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 

let  tmp_cnt  ■  cnt 
MESSAGE  "" 

FETCH  LAST  Isyn  curs  INTO  T  labsynlst.* 

END  IF 

display  ""  at  20,3 

display  "  ",tmp_cnt,"  of  ",  cnt,"  rows"  at  20J 
attributefreverse) 

DISPLAY  BY  NAME  TJabsynlst.* 
call  see  labCT  labsynlstlabcode) 

COMMAND  "Previous" 

"View  the  Previous  term  in  the  list"  HELP  170 
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FETCH  PREVIOUS  Isyn.curs  INTO  TJabsynlst  • 
let  tmp  cnt  *  tmp_cnt  - 1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 
MESSAGE  "" 
let  tmp_cnt  =  1 

FETCH  HRST  lsyn_curs  INTO  TJabsynlst.* 

END  IF 

display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  20J 
attribute(reverse) 

DISPLAY  BY  NAME  TJabsynlst.* 
call  seeJab(TJabsynlst.labcode) 

COMMAND  "First" 

"View  the  first  term  in  the  list."  HELP  170 
FETCH  FIRST  Isyn.curs  INTO  TJabsynlst.* 
let  tmp_cnt  =  1 
display  ""  at  20,3 

display  "  ",  lmp_cnt,  "  of  ",  cnt, "  rows"  at  20J 
attributefreverse) 

DISPLAY  BY  NAME  TJabsynlst* 
call  see_lab(TJabsynlstlabcode) 

COMMAND  "Last" 

"View  the  Last  term  in  the  list."  HELP  170 
FETCH  LAST  lsyn_curs  INTO  TJabsynlst.* 
let  tmp_cnt  =»  cnt 
message  "" 
display  ""  at  20,3 

display  "  ",  tmp_cnt,  "  of ",  cnt, "  rows"  at  203 
attributefreverse) 

DISPLAY  BV  NAME  TJabsynlst* 
call  seeJab(T_iabsynlst.labcode) 

COMMAND  "Update" 

"Update  term  in  Lab  Test  Vocabulary"  HELP  171 
#call  update Jabsyn(TJabsynlst.labcode) 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

«««#####«««#«#####««#««####«#««#««###«##########««#«#########«# 
FUNCTION  se«Jabsyn(tmpJabcode) 
define 

tmp_labcode  like  labsynist.labcode, 
tmp_sys  chard) 

display  "  Hit  ESC  to  leave  array"  at  20,3  attributefreverse) 
declare  lab_see  cursor  for 

select  labcode,  labsyn,  labsynsys  from  labsynist 
where  labcode  » tmp_labcode 
order  by  labsyn 
let  counter  ■  1 

foreach  lab_see  into  lsyn_array[counterl.*,  tmp_sys 
let  counter  ■  counter  +1 
if  counter  >  50 

then  exit  foreach 
end  if 
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end  foreach 

call  set_counKcounter  -1) 
display  tmp_sys  to  labsynsys 
display  array  lsyn_array  to  holder  * 
on  key(interrupt) 
exit  display 
end  display 
close  lab  see 
END  FUNCTION 

##########################################*##################### 
FUNCTION  add_sign() 
define 

tmp.value  chard) 
call  signwinopenO 
let  sw  =  0 

options  input  wrap 
input  by  name  T_signlst* 
on  key  (interrupt) 
let  sw  »1 
exit  input 
after  field  signnum 

display  "Checking  for  duplicates ..."  at  20,3 
select  count(*)  into  x  from  signlst 

v/here  signnum  »  T_signlst.signnum 
if  X  >  0 
then 

error  beep,  "Value  already  used" 
call  see_signsyn{T_signlst.signnum) 
next  field  sigimum 
end  if 

after  field  signterm 

display  "Checking  for  duplicates ..."  at  20,3 
select  countf*)  into  x  from  sigrUst 
where  sign  »  T_signlst.sign 
ifx>0 
then 

error  beep,  "Value  already  used" 
call  see_signsyn(T_signlst.signnum) 
next  field  sign 
end  if 

before  field  systemcode 

call  system_choice()  returning  tmp_value 
call  system_trans(tmp_value) 

returning  T_signlst. systemcode,  T_signlst.systemname 
if  chosen  ■  0 
then 

display  by  name  T_signlst.systemcode,  T_signl5t.systemname 
next  field  signdef 
else  next  field  systemcode 
end  if 
end  input 

if  sw  ■  1  then  return  end  if 

insert  into  signlst  values(T_signlst.*) 

insert  into  signsynlst  values(T_signlst.signnum,T_signlst.sign) 

call  see_signsyn(T_signlst.signnum) 

input  array  ssyn_array  without  defaults  from  holder.* 

_ on  key  (interrupt) _ 
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let  sw  =1 
exit  input 

display  "Hit  ESC  to  continue"  at  203 
before  field  signcode 

let  curr_arr  =  aiT_curr() 

let  ssyn_array[curr_arr] .signcode  =  T.signlst.signnum 
next  field  signsyn 
end  input 

if  sw  3  1  then  return  end  if 

delete  from  signsynlst  where  signcode  *  T_sig;nlst.signnum 
for  counter  »  1  to  arr_count() 

insert  into  signsynlst  values(ssyn_array(counter).*) 
end  for 

END  FUNCTION 

############################################################### 
FUNCTION  flnd_sign() 
call  signwinopenO 

menu  "FIND_MORPHOLOGY_VOCABULARY" 

COMMAND  "Preferred.Term" 
call  sign_find() 

COMMAND  "Synonyms" 
call  signsyn_findO 
COMMAND  "Exit" 
exit  menu 
end  menu 
call  signv/incloseO 
END  FUNCTION 

FUNCTION  sIgnjIndO 
let  int_flag=0 
construct  queryl 

Of. 

signnum,  sign,  systemcode,  systemname,  signdef,  snocode,  snoterm 
from 

sigrinum,  sign,  systemcode,  systemname,  signdef,  snocode,  snoterm 
if  int_flag  <>  0  then  return  end  if 
let  selectl  *  "Select  •  from  signlst  v/here  ",  queryl  clipped 
prepare  find_sign  from  selectl 

let  select2  •  "select  count(*)  from  signlst  where  ",  queryl  clipped 
prepare  cnt.sign  from  select2 
display  "  Searching .... "  at  193 
declare  cnt_sgn  cursor  for  mt_sign 
foreach  cnt.sgn  into  cnt 
end  foreach 
close  cnt_sgn 

declare  8_curs  scroll  cursor  for  find_sign 

open  s_cur5 

c^l  view_sign() 

close  s_curs 

END  FUNCTION 

FUNCTION  vlew_slgn() 
let  tmp_cnt  ■  1 

FETCH  FIRST  3_curs  into  T_signlst.* 

IF  status  »  NOTFOUND 
THEN 
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MESSAGE  "No  Sign/Disease  Found" 

SLEEPS 
MESSAGE  "" 

ELSE 

display  ""  at  19,3 

display  "  ",  cnt,  "  rows  found"  at  19,3  attributcfreverse) 
DISPLAY  BY  NAME  T.signlst.* 
call  see  signsyn(T_signlst.signnum) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Nexr 

"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  s.curs  INTO  T.signlst.* 
let  tmp_cnt  =  tmp.cnt  + 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 
SLEEPS 

lettmp  cnt  a  cnt 
MESSAGE  "" 

FETCH  LAST  s.curs  INTO  T.signlst* 

END  IF 

display  ""  at  19,3 

display  "  ", tmp.cnt,"  of  ",  cnt,"  rows"  at  193 
attributelreverse) 

DISPLAY  BY  NAME  T.signlst* 
call  see_signsyn(T.signlstsignnum) 

COMMAND  "Previous" 

"View  the  Previous  term  in  the  list"  HELP  170 
FETCH  PREVIOUS  s.curs  INTO  T.signlst.* 
let  tmp  cnt  a  tmp.cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 

MESSAGE  "" 

let  tmp  cnt »  1 

FETCH  FIRST  s  curs  INTO  T.signlst.* 

END  IF 

display  ""  at  193 

display  "  ",  tmp.cnt "  of ",  cnt "  rows"  at  193 
attributelreverse) 

DISPLAY  BY  NAME  T.signlst* 
call  see.signsynlT.signlst.signnum) 

CO.MMAND  "first' 

"View  the  first  term  in  the  list"  HELP  170 
FETCH  FIRST  s.curs  INTO  T.signlst.* 
let  tmp.cnt » 1 
display  ""  at  19,3 

display  "  ",  tmp.cnt  "  of ",  cnt  "  rows"  at  193 
attributelreverse) 

DISPLAY  BY  NAME  T.signlst* 
call  see  signsyntT.signlstsignnum) 

COMMAND  "Last" 

"View  the  Last  term  in  the  list"  HELP  170 
FETCH  LAST  s.curs  INTO  T.signlst.* 
let  tmp.cnt «  cnt 
message  "" 

_ display  ""  at  19,3 _ 
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display  "  ",  tmp_cnt, "  of ",  cnt, "  rows"  at  19,3 
attributefreverse) 

DISPLAY  BY  NAME  T.signlst  • 
call  see_signsyn(T  signlst.signnum) 

COMMAND  "Update" 

"Update  term  in  Sign/Disease  Vocabulary"  HELP  171 
call  update  sign(T  signlst.signnum) 

COMMAND  "Delete"' 

"Delete  term  from  Sign/Disease  Vocabulary"  HELP  915 
prompt  "Are  you  sure  you  want  to  delete  this  term  (y/n)?  " 
for  answer 
IF  answer  =  "y"  then 

call  delete_sign{T  signlst-signnum) 

END  IF 

COMMAND  "Exit" 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
END  MENU 
END  FUNCTION 

############################################################### 
FUNCTION  update_sign(tmp_slgnnurn) 
define 

tmp_signnum  like  signlstsignnum, 
tmp_sign  like  signlsLsign, 
tmp_sys  like  signlst.systemname, 
tmp_value  chard) 
let  tmp_sign  =«  T_signlst.sign 
options  input  wrap 

input  by  name  T_signIsL*  without  defaults 
on  key  (interrupt) 
let  sw  =1 
exit  input 
after  field  sigtvnum 

if  T_sigrl3t.s3gnnum  <>  tmp_signnum 
then 

select  count(*)  into  x  from  signlst 

where  signnum  »  T_signlst.signnum 
ifx>0 
then 

error  beep,  "Value  already  used" 
call  see_signsyn(T_signlst.signnum) 
next  field  signnum 
end  if 

end  if 
after  field  sign 

if  T_signlst.sign  <>  tmp_sign 
then 

select  count(*)  into  x  from  signlst 
where  sign  »  T_signist.sign 
if  X  >  0 
then 

error  beep,  "Value  already  used" 
call  see_signsyn(T_signlst.sign) 
next  field  sign 
end  if 

end  if 

_ after  field  systemcode 
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if  T_signlst.systeincode  is  null 
then 

call  system_choice{)  returning  tmp.value 
call  system_trans(tmp_value) 

returning  T_signlst.systemcode,  T_signlst.systemname 
if  chosen  =  0 
then 

display  by  name  T_sigiUst.systemcode,  T_signlst.systemname 
next  field  signdef 
else  next  field  systemcode 
end  if 
else 

select  systemname  from  tkssite 

where  systemcode  *  T_signlst.systemcode 
and  organcode  »  " — " 
if  status  »  NOTTOUND 

then  error  beep/'Not  accepable  system  code" 
call  system_choice()  returning  tmp_value 
call  system_traiw(tmp_value) 

returning  T_signlst.systemcode,  T_signlst.systemname 
if  chosen  sQ 
then 

display  by  name  T_signlst.systemcode,  T_signlst.systemname 
next  field  signdef 
else  next  field  systemcode 
end  if 

end  if 

end  if 
end  input 

if  sw  »  1  then  return  end  if 

update  signlst  set  sigiJst.*  »  T  signlst.* 

{ 

THERE  MAY  NEED  TO  BE  A  MECHANISM  FOR  UPDATING  LINKED  SYNONYMS 

) 

END  FUNCTION 

ft############################################################## 

FUNCTION  delete_slgn(tmp_s!gnnum) 

define 

tmp_signnum  like  signlst.signnum 
call  alrt260open() 

prompt  "Do  you  really  want  to  delete  this  term?  (y/n)  " 
for  answer 

if  upshifKanswer) «  "N" 
then 

message  "Row  not  deleted" 
sleep  1 
message  "" 
return 
else 

select  count!*)  into  x  from  signsynlst 
where  signeode  » tmp_signnum 
if  x  >  1 
then 

DELETE  FROM  signlst  WHERE  signnum*  tmp_signnum 
MESSAGE  "Row  Deleted." 

SLEEP! 

MESSAGE  "" 
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else 

prompt  "There  are  associated  synonyms.  Delete  them  also?  (y/n) " 
for  answer 

if  upshift(answer)  =  "Y" 
then 

delete  from  signsynlst 

where  signcode  =  tmp_signnum 
else 

return 
end  if 

end  if 

end  if 

call  alrt260close() 

END  FUNCTION 

FUNCTION  see_sign(tmp_signnum) 

define  tmp_signnum  like  signlst-signnum 
select  •  into  T_signlst.*  from  signlst 
where  signnum  =  tmp_signnum 
display  by  name  T  signlst.* 

END  FUNCTION 

FUNCTION  signsyn_flnd() 

let  int_flag=0 

construct  queryl  on  signcode,  signsyn  from  holder.* 
if  int_flag  <>  0  then  return  end  if 

let  selectl  =  "Select  *  from  signsynlst  where  ",  queryl  clipped 
prepare  find_3ignsyn  from  selectl 

let  select2  »  "select  count(*)  from  signsynlst  where  ",  queryl  clipped 
prepare  cnt_signsyn  from  select2 
display  "  Searching ....  "  at  19,3 
declare  cnt_sgr.syn  cursor  for  cnt_3ignsyn 
foroach  cnt_sgnsyn  into  cnt 
end  foreach 
close  cnt_sgn3yn 

declare  ssyn_curs  scroll  cursor  for  find_signsyn 

open  ssyn_curs 

call  view_signsyn() 

close  ssyn  curs 

END  FUNCTION 

FUNCTION  vlew_slgnsynO 

let  tmp_cnt » 1 

FETCH  FIRST  ssyn_curs  into  T_signsynlst.* 

IF  status  »  NOTFOUND 
THEN 

MESSAGE  "No  Sign/Disease  Found" 

SLEEPS 
MESSAGE  "" 

ELSE 

display  ""  at  19,3 

display  "  ",  cnt,  "  rows  found"  at  19,3  attribute(reverse) 

DISPLAY  BY  NAME  T.signsynlst* 
call  see  sign(T  signsynlsl.signcode) 

END  IF 

MENU  "BROWSE" 

COMMAND  "Nexr 
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"View  the  next  term  in  the  list."  HELP  170 
FETCH  NEXT  ssyn.curs  INTO  T.signsynlst.* 
let  tmp  cnt  =  tmp_cnt  +  1 
IF  status  =  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 
SLEEPS 

let  tmp_cnt  =  cnt 
MESSAGE  "" 

FETCH  LAST  ?syn  curs  INTO  T  signsynlst.* 
END  IF  “  ~ 

display  ""  at  19,3 

display  "  ",tmp_cnt,"  of  ",  cnt,"  rows"  at  19,3 
attribute(reverse) 

DISPLAY  BY  NAME  T_signsynlst.* 
call  see_sign(T_signsynlst.signcode) 

COMM/ND  "Previous" 

"View  the  Previous  term  in  the  list."  HELP  170 
FETCH  PREVIOUS  ssyn.curs  INTO  T.signsynlst.* 
let  tmp_cnl  =  tmp  cnt  - 1 
IF  status  »  NOTFOUND  THEN 

MESSAGE  "No  more  terms  in  this  direction." 

SLEEPS 

MESSAGE  "" 

let  tmp_cnt  =«  1 

FETCH  FIRST  ssyn_cu;-s  INTO  T  signsynlst.* 
END  IF 

display  ""  at  19,3 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  19,3 
attribute(reverse) 

DISPLAY  BY  NAME  T_signsynlst.* 
call  see_sign(T_signsynlst.signcode) 

COMMAND  "First" 

'  View  the  first  tcmt  in  the  list."  HELP  170 
FETCH  FIRST  ssyn_curs  INTO  T_signsynlst.* 
let  tmp  cnt  =  1 
display  ""  at  19,3 

display  "  ",  tmp_cnt,  "  of  ",  cnt,  "  rows"  at  19,3 
attributefreverse) 

DISPLAY  BY  NAME  T_signsynlst.* 
call  see_sign(T  signsynlst.signcode) 

COMMAND  "Usr 

'View  the  Last  term  in  the  list."  HELP  170 
FETCH  LAST  ssyn_curs  INTO  T_signsynlst.* 
let  tmp_cnt »  cnt 
message  "" 
display  ""  at  19,3 

display  "  ",  tmp_cnt,  "  of ",  cnt,  "  rows"  at  193 
attribute(reverse) 

DISPLAY  BY  NAME  T.signsynlst.* 
call  see_sign(T  signsynlst.signcode) 

COMMAND  "Update" 

"Update  term  in  Sign/Disease  Vocabulary"  HELP  171 
#call  update  signsyn(T  signsynlst.signcode) 
COMMAND  "Exir 

"Leave  this  menu"  HELP  2 
EXIT  MENU 
•  D  MENU 
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END  FUNCTION 

FUNCTION  s6e_slgnsyn(tmp_signcode) 

define 

tmp_signcode  like  signsynlst.signcode 
display  "  Hit  ESC  to  leave  array"  at  19,3  attribute(reverse) 
declare  sign_see  cursor  for 
select  *  from  signsynist 

where  signcode  =  tmp_signcode 
order  by  signsyn 
let  counter  =«  1 

foreach  sign_see  into  ssyn_array(counterl.* 
let  counter  =  counter  +1 
if  counter  >  50 

then  exit  foreach 
end  if 

end  foreach 

call  set_count(counter  -1) 
display  array  ssyn_aiTay  to  holder.* 
on  keyfinterrupt) 
exit  display 
end  display 
close  sign_see 
END  FUNCTION 
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#tkstrans.4gl 

( 

Title:  tkstrans.4gl 

Copyright  Harold  L  .Trammel,  1987-1988 
University  of  llliois,  CVM,  lAPIC 
Funded  by  US  .^rmy  Contract  DAMD-17-C-7114 
Contains  the  following  functions: 

clear_choice(topRow,bottomRow,leftCol) 

aim_choice(aim) 

aim_trans(aim_hold) 

stype_choice() 

stype_trans(tmp_type) 

vivit_choice() 

vivit_trans(hold_vivit) 

cntlcmp_choice() 

cntlcmp_trans(hold_cntlcmp) 

anpmeth_choice(cntlcmp) 

cmpmeth_trans(compmeth) 

cntlmeth_choice() 

cntlmeth_trar\s(hoId_cntlmeth) 

cntltyp_choice(stycntlmeth) 

cntltj’p_trans(cntltyp) 

cntlassgn_choice<) 

cntlassgn_trans(cntlassgn) 

rte_choiceO 

rte_trans(rte) 

sex_cho'!ce() 

sex_trans(sex) 

date_choice() 

date_trans(dte) 

wt_choice() 

form_choice() 

form_trans(formul ) 

severe_trans(hold_severe) 

pur_choice() 

pur_trans(tmp_val) 

dose_choice() 

change_choice() 

trans_change<tmp_cng) 

system_choice() 

system_trans(tmp_value) 

labCatChoiceO 

labCatTranftmp  value) 

) 

database  tkstest 
globals  "tksglob.4gr 

FUNCTION  clear_cholc«(topRow,bottomRow,l«ftCol) 
define  top  Row,  bottomRow,  leftCol  smallint 
for  X  ■  topRow  to  bottomRow 
display  ""  at  x,leftCol 
end  for 
end  function 

######«##«««##«#«««««#«#«###««##«««#««#««#######«##«««««###«##«#«# 
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FUNCTION  aim_choice(aim) 
define  aim  chaKl) 
call  clear_choice(8,1630) 
let  chosen  =  1 
case 

when  aim  =  "0" 

display  "  E  =  Experimental  "  at  8^0  attribute(reverse) 
display  "  N  =  Non-Experiment "  at  9^0  attribute(reverse) 
display  "  I  =  Info  Only  "  at  1030  attribute(reverse) 
display  "  C  =  Combination  "  at  1130  attributeCreverse) 
exit  case 
when  aim  =  "E" 

display  "  ElO  =  Toxicity  "  at  8, 50  attributefreverse) 
display  "  E20  =  Mecfianisms  "  at  9, 50  attributefreverse) 
display  "  E30  =  Kinetics  "  at  10, 50  attributefreverse) 
display  "  E40  »  Treatment  "  at  11, 50  attributefreverse) 
display  "  E50  =  Pharmacol  "  at  12, 50  attributefreverse) 
display  "  E60  =  Chemistry  "  at  13, 50  attribute(reverse) 
display  "  E61  »  Analysis  "  at  14, 50  attributefreverse) 
display  "  E62  *  Synthesis  "  at  15, 50  attributefreverse) 
display  "  E63  »  Purific.  "  at  16, 50  attributefreverse) 
exit  case 
when  aim  =  "N" 

display  "  NIO  »  Case  Report  "  at  8, 50  attributefreverse) 
display  "  N20  *  Epidemiology  "  at  9, 50  attribute(reverse) 
exit  case 
when  aim  »  "1" 

display  "  101  »  Review  "  at  8, 50  attributefre verse) 
display  "  102  »  Comment "  at  9, 50  attributefreverse) 
exit  case 
when  aim  »  "C" 

display  "  COI  »  Case+Review  "  at  8, 50  attributetreverse) 
display  "  C02  »  Case-*- Expert  "  at  9, 50  attributcireverse) 
display  "  C03  »  Exper-f Revue  "  at  10, 50  attributeireverse) 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  chosen  *  0 
exit  case 
end  case 
end  function 

FUNCTION  aImjrans(aim_holci) 

define 

aim_hoId  like  pap>erover.papaim, 
aim.class  char<20) 
let  chosen  *  1 

Case 

when  aim_hoId  ■  "ElO" 

let  aim.class  -  "EXPER-TOXICITY" 
exit  case 

when  aim_hold  »  "E20" 

let  aim.class  -  "EXPER-MECHANISMS" 
exit  case 

when  aim_hold  ■  "E30" 

let  aim_class  -  "EXPER-KINETICS" 
exit  case 
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when  aim_hold  =  "E40" 

let  aim_class  =  "EXPER-TREAT" 
exit  case 

when  aim  hold  =  "ESO" 

let  aim_class  =  "EXPER-PHARMACOL" 
exit  case 

when  aim_hold  =  "E60" 

let  aim_class  =  "EXP-CHEM-NOS" 
exit  case 

when  aim_hold  =  "E61" 

let  aim.class  =  "EXP-CHEM-ANALYT" 
exit  case 

when  aim  hold  =  "E62" 

let  airn_class  =  ''EXP-CHEM-SYNTH" 
exit  case 

when  aim_hold  =  "E63" 

let  aim_class  =  "EXP-CHEM-PURIP 
exit  case 

when  aim_hold  =  "NIO" 

let  aim_class  »  "CASE  REPORT" 
exit  case 

When  aim_hold  =  "N20" 

let  aim_dass  » 'EPIDEMIOLOGY" 
exit  case 

when  aim_hold  a  "110" 

let  aim.class  *  "REVIEW" 
exit  case 

when  aim_hold  ■  "120" 

let  aim_class  -  "COMMENT' 
exit  case 

when  aim  hold  ■  "COT 

lot  aim.class  -  "CASE-REVIEW" 
exit  case 

when  aim_hoId  »  "C02" 

let  aim_cla.'.s  »  "CASE-EXPER" 
exit  case 

when  aim  hold  »  "C03" 

let  aim_class  -  "EXPER-REVUE" 
exit  case 

when  aim_hold  »  "C04" 

let  aim_clas5  a  "CASE-EPIDEM" 
exit  case 

when  aim_hoId  ■  "COS" 

let  aim.class  -  "EXPR-EPIDEM" 
exit  case 

otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  aim_cias5  *  "  " 
let  chosen  ■  0 
exit  case 

end  case 
return  aim  class 
end  FUNCTION 

##«#«####«####«#«#«#««#««#########«#««##«###«####«################ 
FUNCTION  8typ»_cholc#<tmp_alni) 
define 

tmp_aim  like  paperover.papaim 


230 


Toxin  Knowledge  System  Source ' 


call  dear_choice(8,16^0) 


when  tmp_aim(l]  =  "N"  or  tmp_aim  =  "C04" 

display  "  A  =  Survey  "  at  8^0  attribute(reverse) 
display  "  A1  =  Prospective  "  at  9^0  attribute(reverse) 
display  "  A2  =  Retrospective  "  at  10^0  attribute(reverse) 
display  "  F  =  Case  Report  "  at  15^0  attribute(reverse) 
exit  case 

when  tmp_aim[l] «  "E" 

display  "  B  =«  Experiment  "  at  11^0  attribute(reverse) 
display  "  C  »  Therapeutic  "  at  1230  attribute(reverse) 
display  "  D  =*  Prophylactic  "  at  1330  attribute(reverse) 
display  "  E  »  Symptomatic  "  at  1430  attribute(reverse) 
exit  case 

when  tmp_aim  »  "COl" 

display  "  F  »  Case  Report  "  at  1530  attribu?e(reverse) 
exit  case 

when  tmp_aim  =  "C02" 

display  "  B  =  Experiment  "  at  1130  attribute{reverse) 
display  "  C  a  Therapseutic  '  at  1230  attribute{reverse) 
display  "  D  =*  Prophylactic  '  at  1330  attribute(reverse) 
display  "  E  »  Symptomatic  "  at  1430  attribute(reverse) 
display  "  F  »  Case  Report  *  at  1530  attribute(reverse) 
exit  case 

when  tmp_aim  »  "COS" 

display  "  B  *  Experiment  "  at  1130  attribute(reverse) 
display  "  C  »  Therapeutic  "  at  1230  attribute{reverse) 


"  at  1130  attribute(reverse) 
"  at  1230  attribute(reverse) 
"  at  1330  attribute(reverse) 
"  at  1430  attribute(reverse) 


'  at  1530  attribu?e(reverse) 


"  at  1130  attribute{reverse) 
'  at  1230  attribute{reverse) 
'  at  1330  attribute(reverse) 
"  at  1430  attribute(reverse) 
*  at  1530  attribute(reverse) 


Experiment  "  at  1130  attribute(reverse) 
Therapeutic  "  at  1230  attribute{reverse) 
I  Prophylactic  "  at  1330  attribute(reverse) 


display  "  D  »  Prophylactic  "  at  1330  attribute(reverse) 
display  "  E  »  Symptonutic  "  at  1430  attribute(rcversc) 
exit  case 

when  tmp_aim  »  "COS" 

display  "  A  »  Survey  "  at  830  atiributeireverse) 
display"  A1  ■  Prospective  "at930attnbu.te{reverse) 
display  "  A2  »  Retrospective  "  at  1030  atiribute(rever3s) 
display  "  B  ■  Experiment  "  at  1 1 30  attribute{reverse) 
display  "  C  «  Therapeutic  "  at  1230  attribute(reverse) 
display  "  D  ■  Prophylactic  "  at  1330  attribute(reverse) 
display  "  E  ■  Symptomatic  "  at  1430  attribute(reverse) 
display  '  F  «  Case  Report  "  at  1530  attribute{reverse) 
exit  case 
end  case 
end  fuiKtion 

FUNCTION  styp«_trans<tmpjyp9) 
define 

tmp.type  like  stdydsgn.stytype, 
hold_t)^  char(20) 
let  chosen  •  1 


"  at  1530  attribute{reverse) 


case 

when  tmp_type  "  "A" 

let  hold.type  •  "SURVEY  NOS" 
exit  case 

when  tmp_type  ■  "Al" 

let  hold.type  -  "SURVEY-PRO" 
exit  case 

when  tmp_type  ■  "A2" 

let  hold.type  -  "SURVEY-RETRO" 
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exit  case 

when  tinp  type  =  "B" 

let  hold_type  =  "EXPERIMENT" 
exit  case 

when  tmp_type  =  "C" 

let  hold.type  =  "THERAPEUTIC" 
exit  case 

when  tmp_type  =  "D" 

let  hold.ty-pe  =■  "PROPHYLACTIC" 
exit  case 

when  tmp_type  =  "E" 

let  hold_type  =»  "SYMPTOMATIC" 
exit  case 

when  tmp  tvpe  »  "F' 

let  holditype  =  "CASE  REPORT" 
exit  case 
otherwise 

let  hold.type  =  "NONE" 
let  chosen  a  1 
exit  case 
end  case 
return  hold_type 
END  FUNCfriON 

FUNCTION  vivit_cholce() 
call  clear_choice<8,16^0) 

display  "  V  =  in  viVo  "  at  8^0  attribute(reverse) 
display  "  T  »  in  viTro  "  at  9^  attribute{reverse) 
display  "  I  =  Info  only  "  at  10,50  attributefreverse) 
end  function 

FUNCTION  vlvit_trans(hoid_vivli) 
define 

hold_vivit  like  stdydsgn.styvivit, 

{mp_vivit  char(lO) 
let  chosen  » 1 
Case 

when  hold_vivit »  "V" 

let  tmp_vivit  ■  "IN  VIVO" 
exit  case 

when  hold_vivit  ■  "T" 

let  tinp_vivit »  "IN  VITRO" 
exit  case 

when  hold_vivit «  "I" 

let  tmp_vivit  ■  "INFO  ONLY" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  tmp_vivit  ■  "  " 
let  chosen  «  0 
exit  case 
end  case 
return  tmp_vivit 
end  function 

FUNCTION  cntlcmp_cholc*<) 

call  clear_choice(8, 16,50) 
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display  "  A  =*  Between  Groups  "  at  12, 50  attribute(reverse) 
display  "  B  =  Within  Groups  "  at  13, 50  attribute(rtverse) 
display  "  C  =  Combination  of  A  &  B  "  at  14, 50  attribute(reverse) 
display  "  U  =  Unknown  "  at  15, 50  attribute(reverse) 
end  hmction 

##############################«############################'!###?# 

FUNCTION  cntlcnip_trans(hold_cntlcmp) 

define  hold.rntlanp  like  stdydsgn.stycntlcmp, 
tmp_cntlcmp  diar(20) 
let  chosen  » 1 
case 

when  hold_cntlcmp  =  "A" 

let  tmp_cntlcmp  =  "BETWEEN  GROUP' 
exit  case 

when  hold_cntlcmp  »  "B" 

let  tmp.cntlcmp  =  "WITHIN  GROUP' 
exit  case 

when  hold_cntlcmp  »  "C" 

let  tmp_cntlanp  »  "BETWEEN  &  WITHIN  GRS  " 
exit  case 

when  hold_cntIcmp  »  "U" 

let  tmp_cntlcmp  =«  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  tmp_cntlcmp  ■  "  " 
let  chosen  «  0 
exit  case 
end  case 

return  tmp_cntlcmp 
end  function 

FUNCTION  cmpmeth_cholce(cntlcmp) 
define 

cntlcmp  chard) 
call  clear_choice(8,16,50) 
case 

when  cntlcmp  »  "A" 

display  "  Al«  Non-crossover  "  at  12,50  attributefreverse) 
display  "  A2*  One-way  "  at  13,50  attributefreverse) 
display  "  A3»  Parallel  groups  "  at  14,50  attributelreverse) 
exit  case 

when  cntlcmp  «  "B" 

display  "  Bl«  Crossover  "  at  12,50  attributefreverse) 
display  "  B2«  Latin  Square  "  at  13,50  attributelreverse) 
display  "  B3«  Randomized  Blocks  "  at  14,50  altributefreverse) 
exit  case 

when  cntlcmp  «  "C" 

display  "  C»  Unspecified  Combin  "  at  1230  attributefreverse) 
exit  case 

when  cntlcmp  ■  "U" 

display  "  U*  Unknown  "  at  12,50  attribute(reverse) 
exit  case 
end  case 
end  function 

####«««##«##«##«#«#«#«««###««#«#«««################################# 
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FUNCTION  cmpmethjrans(compmeth) 

define 

onpmeth  char(20), 
compmeth  char(2) 
let  chosen  =  1 
case 

when  compmeth  =  "Al" 

let  cmpmeth  =  "NON-Q?OSSOVER" 
exit  case 

when  compmeth  =  "A2'' 

let  cmpmeth  =  "ONE-WAY" 
exit  case 

when  compmeth  =  "A3" 

let  cmpmeth  =  'TARALLEL  GROUP" 
exit  case 

when  compmeth  »  "Bl" 

let  cmpmeth  =  "CROSSOVER" 
exit  case 

when  compmeth  =  "B2" 

let  cmpmeth  =  'TATIN  SQUARE" 
exit  case 

when  compmeth  ^  "B3" 

let  cmpmeth  »  "RANDOMIZED  BLOCK" 
exit  case 

when  compn.eth  =»  "C" 

let  cmpmeth  »  "COMBINATION  NOS" 
exit  case 

when  compmeth  »  "U" 

let  cmpmeth  »  "UNKNOWN" 
exit  case 
otherwise 

let  cmpmeth  =«  "  " 

error  beep,  "Not  an  acceptable  choice!" 
let  chosen  »  0 
exit  case 
end  case 
return  cmpmeth 
end  function 

FUNCTION  cntlmeth_choiceO 

call  clear..choice(8,16,50) 

display  "  A  »  Concurrent  "  at  12, 50  attribute(reverse) 
display  "  B  ■  Non-Concurrent  "  at  13, 50  attributefrevcrse) 
display  "  N  ■  None  "  at  14, 50  attributefreverse) 
display  "  U  ■  Unknown  "  at  15, 50  attributefreverse) 
end  function 

FUNCTION  cntlm9th_trans(hold_cntlmeth) 

define 

hold_cntlmeth  like  stdydsgn.stycntlmeth, 
tmp_cntlmeth  char(20) 
let  chosen  « 1 
case 

when  hold_cntlmeth  ■  "A" 

let  tmp_cntlmeth  »  "CONCURRENT" 
exit  case 

when  hold_cntlmeth  ■  "B" 
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let  tmp_cntlmeth  =  "NON-CONCURRENT' 
exit  case 

when  hold_cntlmeth  =  "N" 

let  tmp_cntlmeth  =  "NONE" 
exit  case 

when  hold_cntlmeth  =  "U" 

let  tmp_cntlmeth  =  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  tmp_cntlnieth  =  "  " 
let  chosen  =  0 
exit  case 
end  case 

rettim  tmp_cntlmeth 
end  function 

FUNCTION  cntltyp_cholce(stycntlmeth) 
define  stycntlmeth  char(l) 
call  clear_choice(8,16,50) 
case 

when  stycntlmeth  a  "A" 

display  "  A1 »  Active  Agent"  at  12,50  attributefreverse) 
display  "  A2  *  Inactive  Agent "  at  13,50  attributefreverse) 
display  "  A3  »  No  Agent  "  at  14,50  attributefreverse) 
exit  case 

when  stycntlmeth  =  "B" 

display  "  B1  a  Historical  "  at  12,50attribute(reverse) 
display  "  B2  *  Matched  Pairs  "  at  13,50  attributefreverse) 
exit  case 

when  stycntlmeth  =  "N" 

display  "  N  ■  None  "  at  1230  attributefreverse) 
exit  case 

when  stycntlmeth  »  "U" 

display  "  U  a  Unknown  "  at  1230  attributelreverse) 
exit  case 
end  case 
end  function 

#^####«############«##«#«##««##############«######################«# 

FUNCTION  cntltypjrans(cntltyp) 

define  cntltyp  char<2), 

Stycntltyp  char(20) 

let  chosen  a  i 
case 

when  cntltyp  a  "Al" 

let  stycntltyp  a  "ACTIVE  AGENT" 
exit  case 

when  cntltyp  a  "A2" 

let  stycntltyp  "INACTIVE  AGENT" 
exit  case 

when  cntltyp  a  "A3" 

let  stycntltyp  *  "NO  AGENT" 
exit  case 

when  cntltyp  a  "BT 

let  stycntltyp  a  "HISTORICAL" 
exit  case 
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when  cntltyp  =  "B2" 

let  stycntltyp  =  "MATCHED  PAIRS" 
exit  case 

when  cntltyp  =  "N" 

let  stycntltyp  =  "NONE" 
exit  case 

when  cntltyp  =  "U" 

let  stycntltyp  =  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice!" 
let  stycntltyp  =  "  " 
let  chosen  =  0 
exit  case 
end  case 
return  stycntltyp 
end  function 

FUNCTION  cntiassgn_chofce() 

call  clear_choice(8,16,50) 

display  "  A »« Randomized  "  at  12, 50  attributefreverse) 
display  "  B  a  Matched  Pair  "  at  13, 50  attributefreverse) 
display  "  C  =  Arbitrary  Assignment  "  at  14,  50  attributefreverse) 
display  "  N  »  None  "  at  15,  50  attributefreverse) 
display  "  U  =«  Unknown  "  at  16, 50  attribute(reverse) 
end  function 

FUNCTION  cntlassgn_trans(cntlassgn) 

define 

cntlassgn  char(2), 
stycntassgn  char(20) 
let  chosen  *  1 
case 

when  cntlassgn  a  "A" 

let  stycntassgn  »  "RANDOMIZED" 
exit  case 

when  cntlassgn  »  "B" 

let  stycntassgn  »  "MATCHED  PAIR" 
exit  case 

when  cntlassgn  ■  "C" 

let  stycntassgn  »  "ARBITRARY" 
exit  case 

when  cntlassgn  ■  "N" 

let  stycntassgn  «  "NONE" 
exit  case 

when  cntlassgn  «  "U" 

let  stycntassgn  ■  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice!" 
let  stycntassgn  «  "  " 
let  chosen  «  0 
exit  case 
end  case 

return  stycntassgn 
end  Function 


########################################################^/######### 
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FUNCTION  rte_choice() 
call  clear_choice(8,18^2) 
display  "  PO  =  Oral  "  at  9,52  attributelreverse) 
display  "  SK  *  Dermal  "  at  10,52  attributelreverse) 
display  "  IH  =  Inhaled  "  at  11,52  attribute{reverse) 
display  "  IV  =  IV  Inj  "  at  12,52  attrjbute(reverse) 
display  "  IM  =  IM  Inj  "  at  13,52  attribute(reverse) 
display  "  lA  =  lA  Inj  "  at  14,52  attributdreverse) 
display  "  SQ  =  SQ  Inj  "  at  15,52  attributdreverse) 
display  "  OC  =  Ocular  "  at  16,52  attributdreverse) 
display  "  BT  »  Bite-St "  at  17,52  attributdreverse) 
display  "  UK  »  Unk  "  at  18,52  attributdreverse) 
end  function 

#####################««######«####«#######«#««########«########### 
FUNCTION  ne_trans{tle) 
define 

rte  like  exporegm.exroute, 
hold_rte  ciiar(20) 
let  chosen  » 1 
Case 

when  rte  *  'TO" 

let  hold.rte*  "ORAL" 
exit  case 
when  rte  »  "SK" 

let  hold.rte  =  "DERMAL" 
exit  case 
when  rte  =  "IH" 

let  hold.rte  =  "INHALATION" 
exit  case 
when  rte  »  "IV" 

let  hold.rte  »  "INTRAVENOUS  INJ" 
exit  case 
when  rte  =»  "IM" 

let  hcld.rte  »  "INTRAMUSCULAR  INJ" 
exit  case 
when  rte  »  "lA" 

let  hold.rte  »  "INTRA-ARTERIAL  INJ" 
exit  case 
when  rte  »  "SQ" 

let  hold.rte  -  "SUBCUTAiVJEOUS  INJ" 
exit  case 

when  rte  »  "OC" 

let  hold.rte  »  "OULAR" 
exit  case 
when  rte  »  "BT" 

let  hold.rte  »  "BITE-STING" 
exit  case 
when  rte  ■  "UK" 

let  hold.rte  «  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  choice" 
let  hold.rte  =«  "  " 
let  chosen  a  0 
exit  case 
end  case 
return  hold.rte 
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end  function 

##############################################################<* 

FUNCTION  sex_choice() 
call  clear_choice(9,13^0) 
display  "  M  =  Male  "  at  9^0  attribute(reverse) 
display  "  F  =  Female  "  at  10^0  attribute(reverse) 
display  "  C  =  Castrated  Male  "  at  11^0  attribute(reverse) 
display  "  B  =  Both  Sexes"  at  12^0  attribute(reverse) 
display  "  N  =  Neutered  Female  "  at  13,50  attribute(reverse) 
display  "  U  =  Ui\known  Sex  "  at  14,50  attribute(reverse) 
end  function 

FUNCTION  sexjrans(sex) 
define 

sex  chard), 
rtn_sex  char(20) 
let  chosen  » 1 
case 

when  sex  »  "M" 

let  rm_sex»  "MALE" 
exit  case 
when  sex  =»  "F' 

let  rtn_sex  a  'TEMALE" 
exit  case 
when  sex  »  "N" 

let  rtn_sex  *  "NEUTERED  FEMALE" 
exit  case 
when  sex  =  "C" 

let  rtn.sex  »  "CASTRATED  MALE" 
exit  case 
when  sex  »  "B" 

let  rtn_sex  »  "BOTH  SEXES" 
exit  case 
when  sex  *  "U" 

let  rtn.sex  -  "UNKNOWN" 
exit  case 
otherwise 

let  chosen  *  0 
let  rtn_sex  »  "  " 
exit  case 
end  case 
return  rtn_sex 
end  function 

FUNCTION  date.cholceO 
call  clear_choice(9, 14,50) 
display  "  D  ■  Days  "  at  9,50  attributefreverse) 
display  "  W  ■  Weeks  "  at  10,50  attributefreverse) 
display  "  M  a  Months  "  at  11,50  attribute(reverse) 
display  "  Y  a  Years  "  at  12,50  attributefreverse) 
display  "  U  a  Unknown  "  at  1330  attributefreverse) 
end  function 

FUNCTION  dat»jrans(dt«) 
define 

dte  like  subjgrp.sgageunit, 
rtn_date  char(20) 
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let  chosen  =  1 
case 

when  dte  =  "M" 

let  rtn_date  =  "MONTH(S)'' 
exit  case 
when  dte  =  "D" 

let  rtn_date  =  "DAY(S)" 
exit  case 
when  dte  =  "W" 

let  rtn_date  =  "WEEK(S)" 
exit  case 
when  dte  =  "Y" 

let  rtri_date  =»  "YEAR(S)" 
exit  case 
when  dte  =»  "Y" 

let  rtn.date  =  "UNKNOWN" 
exit  case 
otherwise 

let  chosen  =  0 
let  rtn_date  »  "  " 
exit  case 
end  case 
return  rtn_d2te 
end  function 

function  fofni_cholc0() 
call  clear_choice<9,18^2) 
display  "  01 »  Solid  "  at  9^2  attributefreverse) 
display  "  02  =  Slo.rtl "  at  10^2  attributefreverse) 
display  "  03  *  Semisol  "  at  11,52  attributefreverse) 
display  "  04  at  Liquid  "  at  12,52  attributefreverse) 
display  "  05  »  Spray"  at  13,52  attribute<reverse) 
display  "  06  »  Gas  "  at  1432  attributefreverse) 
display  "  07  a  Concent "  at  1532  attributefreverse) 
display  "  08  «  Feed  "  at  1632  attribute(reverse) 
display  "  09  »  Bait  "  at  1732  attribute<reverse) 
display  "  00  »  Unk  "  at  1832  attributefreverse) 
end  function 

function  formjrans(formul} 

define 

formul  like  exporegm.exformul, 
hold_fonnul  char(20) 
let  chosen  a  1 
case 

when  formul »  "01" 

let  hold_formul »  "SOLID" 
exit  case 

when  formul  ■  "02" 

let  hold.formul »  "SLOW-RELEASE" 
exit  case 

when  formul  *  "03" 

let  holdjormul  -  "SEMI-SOLID" 
exit  case 

when  formul  ■  "04" 

let  hold.formul  -  "UQUID" 
exit  case 
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when  formul »  "05" 

let  holdjormul «  "SPRAY" 
exit  case 

when  formul  =  "06" 

let  hold_formul  =  "GAS" 
exit  case 

when  formul  =  "07" 

let  hold.formul  =  "CONCENTRATE" 
exit  case 

when  formul  =  "08" 

let  hold_formul  =  'TEED" 
exit  case 

when  formul  =  "09" 

let  hold_formul  =  "BAIT" 
exit  case 

when  formul  =  "00" 

let  hold.formul »  "UNKNOWN" 
exit  case 
otherwise 

error  beep,  "Not  an  acceptable  dioice" 
let  holdjormul  =  "  " 
let  chosen  »  0 
exit  case 
end  case 

return  hold_formul 
end  function 

function  S8V8rejrans(hoId_sev8|e) 

define 

hold_severe  like  clinfind.cfsevvalue, 
tmp_severe  char(12) 
let  chosen  =»  1 
case 

when  hold_r>evere  =>1 

let  tmp_5cvere  »  "MILD" 
exit  case 

when  hold_severe  »  2 

let  tmp_severe  »  "MODERATE" 
exit  case 

when  hold_severe  »  3 

let  tmp_severe  »  "SEVERE" 
exit  case 
otherwise 

let  tmp.severe  -  "UNK  SEVERITY" 
let  chosen  « 1 
exit  case 
end  case 

return  tmp_severe 
end  function 

########«############««########«############«#######«####«########## 

FUNCTION  pur_cholC8() 
call  clear.  choice<8, 18,52) 

display  "  TOX  ■  Toxic  "  at  9^2  attribute(revcrse) 
display  "  TRT  »  Treat  "  at  10,52  attribute(reverse) 
display  "  CNL  ■  Control  "  at  11,52  attributefreverse) 
display  "  OTH  ■  Other  "  at  12,52  attribute(reverse) 
display  "  NON  »  None  "  at  13,52  attribute(reverse) 
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display  "  UNK  =  Unknown  "  at  14^2  attribute(reverse) 
end  function 

####################################################<>############### 
FUNCTION  pur_trans(tmp_val) 
define 

tmp_val  char(3), 
hold_val  char(lO) 
let  chosen  =  1 
CASE 

when  tmp_val=  "TOX" 
let  hold.val  =  "TOXIC" 
exit  case 

when  tmp  val  =  "TRT" 
let  hold.val  =  'TREAT" 
exit  case 

when  blip  val  =  "CNL" 

let  hold.val  =  "CONTROL" 
exit  case 

when  tmp.val  =  "OTH" 
let  hold.val  =  "OTHER" 
exit  case 

when  bnp.val  =  "NON" 
let  hold.val  =  "NONE" 
exit  case 

when  tmp.val  =<  "UNK" 
let  hold.val  =  "UNK" 
exit  case 
otherwise 

let  chosen  »  0 
let  hold.val  a  "  " 
exit  case 
en'’.  case 
return  hold  %'al 
end  RTNOTON 

##########«#«#########«##############«#«#####«#«#««################# 
FUNCTION  dos0_ChoiC8() 
call  clear_choice(8,1832) 

display  "  MG  »  Milligrams  "  at  9^2  attribulefreversej 
display  "  ML  «  Milliliters  "  at  1032  attributefreverse) 
display "UG  ■  Micrograms  "at  1132attribute{reverse) 
display  "  MG/KG  »  Milligram/Kg  "  at  1232  atbibutefreverse) 
display  "  UG/KG  ■  Microgram/Kg  "  at  1332  attributefreveise) 
end  function 

##«####«#################«###«*##«#«#«##«#«##««###««######««#«#«##«# 
FUNCTION  charg«_choice() 
call  alrtl940open() 
display  "  0  ■  NOS  "  at  53 
display"!  -NORMAL" at 63 
dist  .ay  "  2  «  DISORDER  "  at  73 
display  "  3  » INCREASE  "  at  83 
display  "  4  «  DECREASE  "  at  93 
display  "  5  -  ABSENCE  "  at  103 
display  "  6  -  ABNRM  PRESENCE  "  at  113 
display  "  7  «  ABNRM  RATIO  "  at  123 
prompt  "Enter  number  for  change  seen  >  "  for  answer 
on  key(interrupt) 
call  alrtl9^Iose() 
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return 

end  prompt 
call  alrtl940close<) 
return  answer 
end  function 

;<################# 

function  trans_change(tmp_cng) 

define 

tmp_cng  chard), 

hold_change  like  c’infind.cfchange 

case 

when  tmp_cng  =  "0" 

let  hoid_change  =»  "NOS" 
exit  case 

when  tmp_cng  =  "1" 

let  hold_change  »  "NORMAL" 
exit  case 

when  tmp_cng  "2" 

let  hold.change  »  "DISORDER" 
exit  case 

when  tmp_cng  =  "3" 

let  hold.change  *  "INCREASE" 
exit  case 

when  tmp_cng  »  "4" 

let  hold_change  =»  "DECREASE" 
exit  case 

when  tmp_cng  =  "5" 

let  hold_change  »  "ABSENCE" 
exit  case 

when  trrp_cng  ■  "6" 

let  hold_change  ■  "ABNRM  PRESENCE" 
exi  t  case 

when  tmp_cng  »  "7" 

let  hold.change  »  "ABNRM  R^.TIO'- 
exit  case 

end  case 

return  hold_change 
end  function 

«####««#««#«#«««#####«#«««#««###«#«))«####««##«###««««««########«###« 
FUNCTION  matrlx_cholc»0 
call  airtl940open() 
display" A  -  Blood  "  at  3,4 
dlspIa/'B  -  Plasma  "  at  4,4 
display"C  -  Serum  "  at  5,4 
display"D -  Milk  "at  6,4 
dispIay"E  -  Saliva  "  at  7,4 
clisplay"F  -  Gastric  Cntnt  "  at  8,4 
display"G  -  Feces  "at  9,4 
display"H  -  Vomitus  "  at  10,4 
display"!  -  Urine  "at  11,4 
display"!  - CSF  "at  12,4 
display"Z- Other  Matrix  "at  13,4 
dl5play"X  -  Exit  w/o  Select  "  at  15,4 
prompt  "Enter  letter  for  sample  matrix  >"  'or  char  answer 

on  key  (interrupt) 
call  alrtl940close<) 
let  answer  ■  "Z" 
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return  answer 
end  prompt 

let  answer  =  upshift(answer) 
call  alrtl940close() 
return  answer 
END  njNCTION 

FUNCTION  matrix_trans(tmp_value) 

define 

TJab  record 

loccode  chart6), 
locname  char(lOO) 
end  record, 

tmp_value  chard) 
let  chosen  »  0 
Case 

when  answer  =  "A" 

let  TJab.loccode  »  "TOXfX)" 
let  TJab.locname  =  "BLCOD" 
exit  case 

when  answer  a  "B" 

let  TJab.loccode  »  “TOXW 
let  TJab.locname  »  "PLASMA" 
exit  case 

when  answer  »  "C" 

let  TJab.loccode  »  "T0X5O" 
let  TJab.locname  »  "SERUM" 
exit  case 

when  answer  *  "D" 

let  TJab.loccode  a  "T0Y31" 
let  TJab.locname  »  "MILK* 
exit  case 

when  answer  a  "E" 

let  TJab.loccode  »  "T5X00" 
let  TJab.locname  »  "SALIVA" 
exit  case 

when  answer  ■  "F" 

let  TJab.loccode  -  "T6Y(Xr 

let  TJab.locname  -  "GASTRIC  CONTENTS" 

exit  case 

when  answer  ■  "G* 

let  TJab.loccode  ■  "T6Y10" 
let  TJab.locname  ■  "FECES" 
exit  case 

when  answer  ■  "H"  * — 

let  TJab.loccode  ■  "T6Y10" 
let  TJab.locname  ■  "VOMITUS* 
exit  case 

when  answer  ■  "I" 

let  T_lab.loccode  ■  'T7X10" 
let  TJab.locname  ■  "URINE" 
exit  case 

when  answer  •  "J" 

let  T_lab.loccode  ■  "TXlOO" 

let  TJab.locname  ■  "CEREBROSPINAL  FLUID" 

exit  case 

when  answer  ■  "Z" 
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call  pick_site{)  returning  TJab.loccode,  TJab.locname 
exit  case 
otherwise 

let  chosen  =  1 
let  TJab.loccode  =  "Null" 
let  TJab.locname  =  "Null" 
exit  case 
end  case 

return  TJab.loccode,  T_lab.locnaine 


END  FUNCTION 

FUNCTION  system_choice() 
cal)  alrtl940open() 
display  "A  -  Circulatory  "  at  3,  i 
display  "  B  -  Digestive  "  at  4,4 
display  "  C  -  Hemato  /  Lymph  /  Reticuloen"  at  5,4 
display  "  D  -  Integumentary  /  Skin  "  at  6,4 
display  "  E  -  Musculoskeletal  "  at  7,4 
display  "  F  -  Nervous  /  Behavioral  "  at  8,4 
display  "  G  -  Reproductive  "  at  9,4 
display  '  H  -  Respiratory  "  at  10,4 
display  "  I  -  Senses  "at  11,4 
display  "  J  -  Urinary"  at  12,4 
display  "  K  -  General  "  at  3,4 
display  "  L  -  Endocririe  "  at  14,4 
display  "  M  -  Other/Immurw)lc  Jc/Metabol  "  at  15,4 
display  "  Z  -  Exit  without  choosing  "at  17,4 
prompt  "Enter  letter  for  body  system  >"  for  char  answer 
on  key  (interrupt) 
call  alrtl940close<) 
let  answer  »  "Z" 
return  answer 
end  prompt 

let  answer  upshift(answer) 
call  alrtl940clo3e() 
return  answer 


END  FUNCTION 

FUNCTION  8y8tem_irans(tmp_valu«) 

define 

T_sys  record 

syscode  char<8), 
sysname  chardCO) 
end  record, 
tmp_value  chard) 
let  chosen  ■  0 
Case 


when  tmp_value  •  "A" 
let  T_$ys.syscode  •  "A" 
let  T_sys.sysrvame  ■  "QRCULATORY" 
exit  case 

when  tmp_value  •  "B" 
let  T_sys.syscode  ■  "B" 
let  T.sys.sysname  -  "DIGESTIVE" 
exit  case 

when  tmp_value  ■  "C" 

let  T_sys.syscode  ■  "C" _ 
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let  T.sys.sysname  =  "HEMATOPOETIC-LYMPHATIC-RETICULOEI'JDOTHELIC" 
exit  case 

when  tmp_value  =  "D" 
let  T_sys.syscode  =  "D" 

let  T_sys.sysname  =  "INTEGUMENTARY-SKIN" 
exit  case 

when  tmp_value  =  "E" 
let  T_sys.syscocIe  =  "E" 
let  T_sys.sysname  =  "MUSCULOSKELETAL" 
exit  case 

when  tinp_value  =  'T" 
let  T_sys.syscode  =  "F" 

let  T_sys.sysname  »  "NERVOUS-BEHAVIORAL" 
exit  case 

when  tmp_value  »  "G" 
let  T_sys.syscode  =  "G" 
let  T.sys.sysname  »  'TlEPRODUCnVE" 
exit  case 

when  tnnp_value  ■  "H" 
let  T_sys.syscode  »  "H" 
let  T_sys.sysname  ■  "RESPIRATORY" 
exit  case 

when  tmp_value  »  "I" 
let  T_sys.syscode  »  "1" 
let  T_sys.sysname  ■  "SENSES" 
exit  case 

when  tmp_value  «  "J" 
let  T_sys.syscode  =  "]" 
let  T_sys.sysname  =  "URINARY" 
exit  case 

when  tmp_value  ■  "K" 
let  T.sys.syscode  »  "K" 
let  T_sys.sysname  «  "GENERAL" 
exit  case 

when  tnip_ value  ■  "L" 
let  T_sys.syscode  ■  "L" 
let  T.sys.sysname  »  "ENDOCRINE" 
exit  case 

when  tinp_value  ■  "M" 
let  T_sys.syscode  ■  "M" 

let  T.sys.sysname  ■  "OTHER-IMMUNOLOGIC-METABOUSM" 
exit  case 

when  tnip_value  ■  "Z" 

let  T_syf.syscode  ■  "null" 
let  T_sys.sysname  «  "null" 
let  chosen  ■  1 
exit  case 

otherwise 

Error  "Not  acceptable  system" 
let  chosen  ■  1 
exit  case 

end  case 

return  T_sys.syscode,  T.sys-sysname 
Ef  JD  FUNCTION 

FUNCTION  labCatChoIccO 
call  alrtl940open() 
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display  "  A  -  Elements/Ions/Inorganics/ Add-Base  "  at  3,1 

display  "  B  =  Simple  Organics/Carbohydrates  "  at  4,1 

display  "  C  =  Proteins/ Amino  Adds  "  at  5,1 

display  "  D  =  Fatty  Adds/Lipids/Lipoproteins  "  at  6,1 

display  "  E  =  Porphyrins/ Bilirubin  Cmpd/Bile  Adds  "  at  7,1 

display  "  F  =  Purines/Pyrimidines/Nudeic  Adds  "  at  8,1 

display  "  G  =  Vitamins  "  at  9,1 

display  "  H  =  Hemoglobins  "  at  10,1 

display  " I  =  Enzymes  "at  11,1 

display  "  J  =  Endocrine  Substances  "  at  12,1 

display  "  K  =  Nervous  System  Substances  "  at  13,1 

display  "  L  =  Immune  System  Substances  "  at  14,1 

display  "  M  »  Hematojxjetic  Functions  "  at  15,1 

display  "  Z  =  Exit  without  choosing  "  at  17,1 

prompt  "Enter  letter  for  lab  test  category  >"  for  char  answer 

on  key  (interrupt) 
call  alrtl940close<) 
let  answer  »  "Z" 
return  answer 
end  prompt 

let  answer  »  upshift(answer) 
call  alrtl940dose() 
return  answer 
END  FUNCTION 

FUNCTION  labCatTran(tmp_value) 
define 

tmp_value  chard ), 

T_sys  record 

syscode  char(8), 
sysnanrte  chard  00) 
end  record 

Case 

when  tmp_value  »  "A" 
let  T_sys^yscode  ■  "A" 

let  T_sys.sysrunje  »  "Elements/Ions/Inorganics/ Acid-Base" 
exit  case 

when  tmp_value  ■  "B* 
let  T_sys.syscode  «  "B" 

let  T_8ys.sysrame  ■  "Simple  Organics/Carbohydrates" 
exit  case 

when  tmp_  value  •  "C" 
let  T.sys-syscode  ■  "C" 
let  T_sys.sysname  »  "Proteins/ Amino  Adds* 
exit  case 

when  tmp_ value  ■  "D" 
let  T_sys.syscode  ■  "C" 
let  T_sy5.sysname  ■  "Proteins/ Amino  Adds" 
exit  case 

when  tmp_value  ■  "E" 
let  T_sys.$yscode  «  "E" 

let  T.sys.sysname  *  "Porphyrins/Bilirubin  Cmpd/Bile  Acids" 
exit  case 

when  tmp_value  ■  "F" 
let  T_sys.syscode  ■  "F" 

let  T_8ys.sysname  ■  "Purines/Pyrimidines/Nudeic  Adds" 
exit  case 
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when  tmp_value  =  "G" 
let  T_sys.sy3code  »  "G" 
let  T_sys.sysname  =  'Vitamins" 
exit  case 

when  tmp_value  =  "H ' 
let  T_sys.syscode  =  "H" 
let  T_sys.sysname  =  "Hemoglobins" 
exit  case 

when  tmp_value  =  "I" 
let  T_sys.syscode  =  "I" 
let  T_sys.sysname  =  "Enzymes" 
exit  case 

when  tmp_value  =  "J" 
let  T_sys.syscode  =  "J" 
let  T_sys.sysname  =  "Endocrine  Substances" 
exit  case 

when  tmp_value  »  "K" 
let  T_sys.syscode  =*  "K" 

let  T„sys.sysname  »  "Nervous  System  Substances" 
exit  case 

when  tmp^value  »  "L" 
let  T_sys3yscode  »  "L" 

let  T„sys.sysname  ■  "Immune  System  Substances" 
exit  case 

when  tmp_value  ®  "M" 
let  T_sy3.syscode  »  "M" 
let  T_sys.sysname  »  "Hematopoetic  Functions" 
exit  case 

when  tmp_value  *  "Z" 

let  T_sys.syscode  »  "null" 
let  T_sys.sysname  »  "null" 
let  chosen  » I 
exit  case 

ertd  case 

return  T_sys.syscode,  T_sys.sysrume 
END  FUNCTION 

function  agergn_cholc0O 
call  clear_choice(9,14^0) 
display  *  1  ■  In/ant  "  at  9J5Q  attribute(reverse) 
display  "  2  ■  Juvenile  "  at  10^0  attribute{reverse) 
display  "  3  ■  Adult  "  at  11^  attributefreverse) 
display  "  4  ■  Elderiy  "  at  12^  attributelreverse) 

display  "  0  ■  Unknown  "  at  13,50  attributefreverse) 
end  function 

FUNCTION  ag«rgnjran(t_arang«) 

define 

t_arange  charfl), 

tmp_val  chardO) 
let  chosen  ■  1 
case 

when  t_arange  ■  "0" 

let  tmp.val  •  "UNKNOWN  AGE" 
exit  case 

when  t.arange  »  "1" 

_ let  tmp_val  «  "INFANT' 


247 


roxin  Knowledge  System  Source  Code 


exit  case 

when  t  arange  *  "2" 

let  tmp.val »  "JUVENILE" 
exit  case 

when  t_arange  =  "3" 

let  tmp_val  =  "ADULT" 
exit  case 

when  t_arange  =  "4" 

let  tmp_val  =  "ELDERLY" 
exit  case 
otherwise 

le'  chosen  *  0 
let  tmp_val »  "  " 
exit  case 
end  case 
return  tmp  val 
end  FUNCTION 

function  wt.cholceO 

caU  clear_choice{9,14^) 

display  "  LB  »  Pounds  "  at  9^  attribute(reverse) 
display  "  OZ  »  Ounces  "  at  10^  attribute(reverse) 
display  "  KG  ■  Kilograms  "  at  11,50  attribute(reverse) 
display  "  GM  *  Grams  "  at  12,50  attribute(reverse) 
display  "  UK  =  Unknown  "  at  13,50  attribute(reverse) 
end  function 

FUNCTION  wrangeCholceO 

define 

tmp.val  char<2) 

open  window  wrange  at  3,3  with  7  rows,  68  columns 
attribute(border,  reverse) 
display  "00  »  None"  at  2,1 
display  "U  »  Unk  "  at  2,20 
display  "M  »  Multi  range"  at  2,40 
display  "01  -  <  1  kg(<  2  lb)  "  at  3,1 
display  "02  ■  1  -  2  kg  (>2-4  lb)  "  at  4,1 

display  "03  - 3  - 5  kg  (>4-l  1  lb)  "at  5,1 

display  "04  - 6 -  10 kg  (>11-22  lb)  "at  6,1 
display  "05-11-25  kg  (>22-55  lb)  "  at  7,1 
display  "06  -  26  -  50  kg  (>55-110  lb) "  at  3,36 
display  "07  -  51  - 100  kg  (>110-220  lb)  "  at  4,36 
display  "08  -  101  -  200  kg  (>220-440  lb)  "  at  5,36 
display  "09  -  201  -  500  kg  (>440-1100  lb)  "  at  6,36 
display  "10  -  501  - 1000  kg  (>1120-2200  lb)"  at  7,36 
prompt  "Enter  letter  for  weight  range  >"  for  tmp_val 
on  key  (interrupt) 

close  window  wrange 
let  tmp_val «  "U" 
return  answer 
end  prompt 
close  window  wrange 
let  tmp_val  -  upshift(tmp_val) 
return  tmp_val 
end  FUNCTION 

###«###«###«#«#«##««###««##«####«###«##«^-#«##««##«#««#«««««#######«# 
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FUNCTION  wtrgn_tran(t_wrgn) 

define 

t_wrgn  char(2), 

tmp_val  char(lO) 
let  chosen  =  1 
case 

when  t_wrgn  =  “00" 
let  tmp_val  =  "None" 
exit  case 

when  t_wrgn  =  “01" 

let  tmp_val  =  "<  1  kg" 
exit  case 

when  t_wrg;n  =  "02" 

let  tmp_val  =  “1  -  2  kg" 
exit  case 

when  t_wrgn  =  "03" 

let  tmp_val  a  "3  -  5  kg" 
exit  case 

when  t_wrgn  »  "04" 

let  tinp_val  »  "5-10  kg" 
exit  case 

when  t_WTgn  =  "05" 

let  tmp_vai  a  "11-25  kg" 
exit  case 

when  t_wrgn  *  "06" 

let  tmp_val  a  "26-50  kg" 
exit  case 

when  t_wrgn  a  "07" 

let  tmp_val  a  "51-100  kg" 
exit  case 

when  t_wrgn  a  "08" 

let  tmp_val  a  "101-250  kg" 
exit  case 

when  t_wrgn  ■»  "09" 

let  tmp.val  a  "250-300  kg" 
exit  case 

when  Lwrgn  a  “iQ" 

let  tmp.val  a  "501-1000kg" 
exit  case 

when  t_wrgn  a  "U" 

let  tinp_val «  "Weight  Unk" 
exit  case 

when  t_Wrgn  a  "M" 

let  tmp_val  a  ">i  wt  Rgn" 
exit  case 

otherwise 

let  chosen  a  0 
let tnip_val « 
exit  case 

end  case 
return  tTnp_val 
end  FUNCTION 
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UNIVERSAL  HELP  MESSAGES 

.1 

No  help  available  for  this  item. 

.2 

Exit 

Selecting  this  option  will  exit  the  current  menu  and  take  you 
to  the  previous  window. 

.3  Hit  ESC  to  leave  array. 

Hit  the  "Esc"  key  (and  watch  for  an  on-screen  message)  in  order 
to  begin  the  next  step. 

.4 

.5 

.6 

.7 

.8 


.9 


.-1  tksmain.4gl  HELP  MESSAGES 


TKS-MAIN:  (Overview) 

When  the  TKS-MAIN  window  conr\es  up,  associated  with  it  are 
the  options  available  from  that  window.  The  first  option  is 
selected  as  indicated  by  the  reverse  video  (highlighted  or 
funnel  enclosure  <>  on  some  screens)  of  "AbstractMgt." 

Move  through  the  menu  by  using  the  cursor  keys.  Note  that 
moving  through  the  menu  in  this  fashion  brings  up  brief 
messages  which  explain  the  highlighted  option.  Also,  this 
method  allows  access  to  additional  explanatory  text  available 
via  on-line  help  messages  which  are  accessed  via  simultaneously 
pressing  the  "control"  and  "w"  keys  (Ctrl-w). 

You  may  invoke  the  desired  option  by  typing  (in  lower  case)  the 
first  letter  of  the  option  you  wish  to  select,  or  by  hitting 
"retiim."  For  example,  typing  "e"  will  select  the  "Exit"  option. 
This  method  does  not  allow  you  to  see  tfie  explanatory  text  which 
tells  what  the  option  will  do.  It  is  a  short  cut  to  speed  up 
the  process. 

(Hit  "s"  or  "return  to  see  the  help  file  for  AbstractMgt) 
TKS-MAIN;  AbstractMgt 

Selecting  this  option  brings  you  to  the  "ABSTRACT"  menu 
where  abstracts  can  be  entered,  abstracts  already  entered 
can  be  added  to  (completed),  or  modified  in  some  other  way, 
or  where  searches  for  abstracted  information  can  be  performed. 


.11 

TKS-MAIN:  Vocabulary 

This  option  allows  access  to  the  lists  and  codes  for  journals, 
books,  keywords,  clinical  findings  and  chemical  vocabulary. 
These  areas  can  be  "browsed"  (searches  performed,  entries 
modified  or  added  to). 


.12 

TKS-MAIN:  Reports 

This  section  will  be  used  to  generate  report  summaries 
(monographs),  but  is  not  yet  "on-line." 


.13 

TKS-MAIN:  Information 

This  section  contains  the  copyright  notes  and  a  summary  of 
the  stage  of  development  of  the  individual  programs  which  form 
the  Toxin  Knowledge  System. 


.14 

TKS-MAIN:  Exit 

Selecting  "Exit"  removes  you  from  the  TKS  program  if  you  are 
in  the  first  menu  (TKS-MAIN),  and  moves  you  to  the  previous 
menu  if  you  are  at  any  other  point  in  the  program. 
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TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT:  Results 
Selecting  "Results"  brings  up  a  menu  of  the  same  name  with  the 
option  QinicalFindings. 

.16 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT:  Discussion 
This  option  is  not  yet  on-line. 


TKS-MAIN  ABSTRACT:  New 

Selecting  "New"  from  this  menu  starts  the  process  of 
entering  <>  new  citation.  The  screen  which  apjjears  after 
"New"  is  selected  prompts  you  for  the  last  name  of  the 
first  author  of  the  article  (type  in  lower  case  letters). 

Please  note  that  if  you  make  a  mistake,  the  "Back  Space" 
key  can  be  used.  If  you  wish  to  abort  an  entry,  use  the 
"Del"  (delete)  key. 


TKS-MAIN  ABSTRACT:  Add 

"Add"  provides  a  means  for  adding  to  incomplete  citation 
entries.  For  example,  one  can  add  descriptior\s  of  Designs, 
Subject  Groups,  Exposure  Regimens  and  establish  Links. 

Selecting  "Add"  brings  you  to  the  "SELECT-FILE-BY"  screen. 


TKS-MAIN  ABSTRACT:  Find 

This  option  provides  the  capability  of  locating  citations  or 
any  aspect  of  their  associate  data,  i.e.  designs,  subject  or 
exp.-'sure  regimen  information,  clinical  findings,  comments,  etc. 
Once  the  desired  area  is  located,  various  options  are  available 
which  allow  the  user  to  examine  the  records,  modify  or  delete  them. 


TKS-MAIN  ABSTRACT  SELECT-FILE-BY  ADD-DATA  ADD-CONTENT: 
PaperOverview  -  Paper  Overview  data  exists  for  this  Papier. 

Do  you  want  to  upxiate  it?  (Y/n) 

When  you  have  chosen  to  "Add"  paper  overview  data  for  a  citation 
and  the  citation  already  has  it,  the  system  asks  if  you  would  like 
to  upxiate  what  is  already  there.  Typing  "y,"  followed  by  a  "return," 
brings  up  the  PAPER  OVERVIEW  SCREEN. 


TKS-MAIN  VOCABULARY:  Journals/ Books 

This  option  is  used  to  add  new  journals  or  books  to  the 
source  code  list. 


TKS-MAIN  VOCABULARY:  Keywords 

Selecting  this  option  brings  up  the  KEYWORD_LISTING  menu  with 
options  to  "Add"  keycodes  and  keywords  to  the  system  memory, 
"Find"  the  keycode  for  a  specific  keyword  or  the  keyword 
associated  with  a  specific  keycode. 
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TKS-MAIN  VOCABULARY;  Signs 

This  function  is  not  yet  implemented. 


33 

TKS-MAIN  VOCABULARY:  Chemicals 
This  function  is  not  yet  implemented. 


.40 

TKS-MAIN  REPORTS:  Journal-Listing 

This  option  is  used  to  print  out  the  list  of  journals  and  source 
codes  currently  included  in  the  TKS  system  file. 

DO  NOT  USE  THIS  OPTION.  It  is  under  development. 


.41 

TKS-MAIN  REPORTS:  Abstract 

This  option  is  used  to  generate  structured  abstracts  (monographs) 
for  citations  which  are  selected  by  the  user.  Selection  of  this 
option  brings  you  to  the  Select-File-By  screen  in  order  to  define 
the  citation  for  which  an  abstract  is  to  be  generated. 

THIS  OPTION  SHOULD  NOT  BE  USED.  The  monograph  section  is  under 
development. 


.42 

TKS-MAIN  ABSTRACT  SELECT-HLE-BY 

From  here,  one  can  search  for  a  specific  citation  by  responding 
to  sequential  screens  which  request  the  author,  the  journal 
volume  number,  the  first  page  number,  and  last  two  digits  of 
the  year.  Alternatively,  one  can  give  the  Qtation  No.  which 
consists  of  tfie  source  code  of  the  journal  or  book,  the  volume 
number,  first  page  number,  and  the  year.  Note  that  for  the 
latter,  each  component  must  consist  of  a  certain  number  of 
characters,  for  example,  ]0C(X)1-0(X)1-0(XX)1-1988. 

Completion  of  the  process  will  result  in  finding  the  desired 
citation,  or  a  message  that  the  citation  doesn't  exist  in  the 
database.  If  a  citation  isn't  in  the  system,  you  can't  add 
anything  to  it.  Enter  a  new  citation  by  starting  from  'New" 
in  the  "ABSTRACT  screen. 

Hit  "s"  or  "return"  to  see  the  help  file  for  Author-Name. 

TKS-MAIN  ABSTRACT  SELECT-FILE-BY:  Author-Name 
Type  "a"  or  hit  "return."  Enter  the  first  author's  last  name 
and  hit  "return."  Now  the  program  prompts  you  for  the  volume 
or  chapter  number.  You  must  answer  all  of  the  questions  posed 
by  this  path  in  order  to  search  for  a  particular  citation. 


.43 

TKS-MAIN  ABSTRACT  SELECT-HLE-BY:  Author's  Last  Name 
Enter  only  the  first  author's  last  name  NOT  the  initials  (case 
doesn't  matter). 


.44 
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TKS-MAIN  ABSTRACT  SELECT-HLE-BY:  Volume/Chapter  Number 
Enter  the  volume  or  chapter  number  followed  by  "return." 


.45 

TKS-MAIN  ABSTRACT  SELECT-FILE-BY;  Citation-Number 

Selecting  this  option  results  in  a  prompt  asking  for  the  citation 
number  on  which  to  do  the  search. 


.46 

TKS-MAIN  ABSTRACT  SELECT-FILE-BY;  Which  Qtation-Number? 
Type  in  the  j  or  b  and  the  following  5  numbers,  a  hypen  and 
the  next  4  numbers,  a  hypen  and  5  numbers  for  the  first  page,  a 
hypen  and  the  year,  then  "return"  (remember,  the  format  is 
JOOOOl-0001-00001-1988). 

The  program  either  finds  a  match  and  brings  up  the  menu  asking 
what  you  would  like  to  add,  finds  a  match  and  tells  you  all  data 
has  bwn  entered,  or  doesn't  find  a  match  and  lets  you  know  that 
too.  Make  sure  you  have  typed  the  citation  number  correctly 
before  trying  to  enter  new  citation  information  (via  the  "New" 
path  if  no  match  was  found). 

Respond  to  the  prompts  and  you  will  come  to  the  "ADD-DATA" 
screen  if  the  citation  is  not  already  in  the  system. 


TKS-MAIN  ABSTRACT  FIND-DATA;  Gtation-Data 

This  option  brings  you  to  the  FIND-CITATION-DATA  screen  where 
there  are  multiple  methods  of  locating  a  particular  citation  or 
author. 


.51 

TKS-MAIN  ABSTRACT  FIND-DATA;  Paper  Content 

"Paper  Content"  refers  to  the  paper  overview,materials  and  methods 
(design,  subject,  regimen  and  link  information),  results  (clinical 
findings)  and  discussion  portions  of  paper  entries.  Using  this 
option,  one  can  search  for  any  of  those  areas  of  a  paper  which  has 
already  been  entered.  In  addition,  selection  of  this  option 
provides  a  means  of  adding  one  or  more  of  those  specific  entities 
if  they  are  found  to  be  missing  after  a  query,  by  using  the 
"Add-Data"  option. 

32 

TKS-MAIN  ABSTRACT  FIND-DATA;  Keywords-Notes 

Selection  of  Keywords-Notes  brings  you  to  the  Find-Keywords-Notes 
menu  where  one  can  searcl.  for  keywords  or  comments  for  a 
specific  citation.  The  "Qi'.ery  All"  option  is  also  available  from 
this  window.  It  allows  one  to  bring  up  additional  details  during 
a  search,  for  example,  the  authorts)  and  title  of  the  article. 


TKS-M.\IN  ABSTRACT  FIND-DATA  FIND-KEYWORDS-NOTES;  Keywords 
Selection  of  the  "Keywords"  option  enables  one  to  search  for 
the  keywords  that  have  been  entered  for  a  particular  citation. 

The  screen  comes  up  with  the  cursor  on  the  "Citation"  field  and 
a  message  asking  you  to  "Enter  search  criteria  and  hit  ESC  to 
Search."  Provide  the  citation  number  (or  the  Citation  File 
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Number,  or  a  Kej"word)  and  hit  "Esc."  If  the  citation  exists  in 
tie  system,  and  if  Keycodes/Keywords  were  assigned,  they  will 
appear.  When  located,  they  may  be  modified  or  deleted.  If  none 
have  been  entered,  they  may  be  added  to  the  record. 

Watch  for  messages  on-screen  indicating  what  you  should  do. 
Typically,  a  message  wib  come  up  asking  you  to  hit  "ESC"  to 
continue,  after  which  a  "BROWSE"  menu  will  appear.  There  are 
on-line  help  messages  available  for  that  menu. 

34 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-KEYWORDS-NOTES:  Notes 
TTie  "Notes"  option  provides  a  mechanism  for  locating  the  comments 
entered  in  association  with  a  particular  document  The  notes  may 
be  modified  or  deleted,  or  added  if  not  found. 


TKvMAIN  AB5TR.ACT  FIND-DATA  FIND-KEYV/ORDS-NOTES:  Query-All 
The  "Query- .yi"  option  enables  one  to  search  using  citadon 
attributes,  the  document  title,  authorfs)  or  keywords.  When  a 
search  is  successful,  those  ether  portions  of  ^he  screen  are  also 
provided. 

.60 

TKS-KLUN  ABSTRACT  SELECT-HLE-BY  ADD-DATA:  Gtaoon-DaU 
One  can  add  citation  information  to  ill .  system  using  this 
patii.  More  commonly,  this  would  be  done  via  the  "New"  option 
in  the  "ABSTRACT"  window. 

Even  though  this  is  an  "ADD '  path,  a  "Fmd"  option  becomes 
available  which  allows  the  user  to  .search  for  abstract  components. 

.61 

TK3-Mi*J?vI  ABSTRACT  SELECT-FIIx-BY  ADD-OATA;  Pap..;r-Cor.tent 
The  "PAPER -CONTENT"  :x3een  which  appears  next  requires  that  one 
select  the  type  of  data  which  will  be  eniered.  Choose  one  of  the 
available  options. 


TKS-MAIN  ABSTRACT  SELECT-FILE-BY  .ADD-DATA:  Keywords-Notes 
Selecting  this  option  allows  you  to  add  either  additional 
keywords  or  notes  (comments),  depending  on  what  is  selected 
from  ;he  next  menu. 


TKS-MAIN  ABSTRACT  SELECT-nLE-BY  ADD-DATA  ADD-CITATION-DATA:  Qtation 
Selecting  "Gtation"  allows  you  to  add  citation  data  to  the  system. 

Usually  you  would  do  this  via  the  “TTCS-MAIN  AbstractMgf  ABSTRACT 
New"  path.  However,  if  the  citation  portion  of  an  entry  is  deleted, 
leaving  the  other  components,  this  option  can  be  used  to  re-enter  the 
citation  data. 


TKS-MAIN  ABSTRACT  SELECT-RLE-BY  ADD-DATA  ADD-CIFATION-DATA:  Authors 
Oie  can  add  authors  to  a  partially  completed  list  or  add  authors 
to  a  ciution  that  lacks  that  attribute. 
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If  there  are  authors  already  Msted  for  the  citation,  you  can  move 
through  them  with  the  cursor  keys.  You  cannot  change  anything  or 
add  names  until  the  "Esc"  key  is  used. 

After  hitting  "Esc"  the  message  at  the  bottom  of  the  screen 
changes  ana  the  cursor  field  *s  in  reverse  video  (dependant  on 
your  terminal  type).  You  can  now  make  changes  in  the  fields 
already  entered  or  add  names  to  the  list  Remember,  the  program 
will  correctly  number  the  authors  if  you  enter  them  in  sequence. 

When  you  are  finished  with  the  changes/additions,  hit  "Esc"  to 
place  them  in  the  system  memory. 

(This  help  message  is  also  available  if  you  choose  "Authors." 

.65 

TKS-MAIN  ABSTRACT  SELECT-HLE-BY  ADD-DATA  ADD-KEYWORDS-NOTES:  Keywords 
Selecting  "Keywords"  brings  up  the  keycode/keyword  screen  which 
enz  bles  one  to  add  keywords  to  the  spedhed  document  data. 


rKS-MAIN  ABSTRACT  SELECT-FILE-BY  ADD-DATA  ADD-KEYW'ORDS-NOTES:  Notes 
Selecting  "Notes"  brings  up  the  TKS  "Comments"  screen  so  that 
comntents  can  be  added  to  the  specified  document 


TKS-MAIN  ABSTRACT  SELECT-RLE-BY  ADD-DATA  ADD-CONTENT:  PapeiOverview 
Selecting  'TapeiOversnew"  will  enable  one  to  add  that  portion  of 
the  paper  content  to  the  citation  information  in  the  system. 

Pape.'Overview  consists  of  the  stated  and  implied  purpose,  the 
paper  class,  a>ui  number  of  study  designs. 

.70 

TKS-MAJN  ABSTRACT  SELECT-RLE-BY  ADD-DATA  ADDCONTENT: 

.Materials-Methods 

If  the  document  entry  process  is  complete  through  Paper 
Overview,  one  can  add  design,  subject,  regimen  and  link 
information  by  selecting  this  option. 

Design  infomrution  includes,  the  type  of  study,  the  number 
of  subject  groups  and  exposure  regimens,  information  on 
controls  and  group  comparisons. 

.71 

TKS-)dAIN  ABSTRACT  SELECT-RLE-BY  ADD-DATA  ADD-CONTENT  MATERIALS-METHODS: 
Design 

When  you  select  design,  the  system  chocks  to  see  if  the  number  of 
designs  that  have  been  entered  matches  the  number  of  designs 
indicated  in  the  PAPER  OVERVIEW  SCREEN.  If  they  do  not,  you  must 
change  the  data  in  the  overview  screen  to  allow  for  entry  of 
another  design. 

If  there  are  fewer  designs  entered  than  the  overview  screen 
indicated  there  should  be,  a  design  screen  will  come  up.  Fill  in 
the  options  as  the  cursor  moves  to  each  field.  "Esc"  brings  up 
the  next  design  screen. 
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TKS-MAIN  ABSTRACT  SELECT-HLE-BY  ADD-DATA  ADD-CONTENT  MATERIALS-METHODS: 
Subjects 

When  this  option  is  selected  (assuming  that  the  Designis) 
have  already  been  entered),  the  program  asks  which  design  you 
would  like  to  add  subjects  to.  The  design(s)  are  showm  mid-screen. 

Choose  a  number  from  the  left  margin  and  hit  "return." 

If  you  select  a  design  for  which  all  subject  group  information 
has  been  entered,  you  caiuiot  enter  another  subject  group.  Tlie 
system  will  return  you  to  the  MATERIALS-METHODS  menu.  If  a 
subject  group  is  lacking  for  the  design  you  selected,  a  new 
SUBJECT  GROUP  oCREEN  comes  up  and  can  be  completed.  Subject 
data  includes  information  on  the  species,  age,  sex,  weight  and 
similar  attributes. 


.73 

TKS-MAIN  ABSTRACT  SELECT-HLE-BY  ADD-CATA  ADD-CONTENT  MATERIA15-METH0DS; 
Subjects-For  which  design? 

If  the  doctoment  entry  process  is  complete  through  Paper  Overview, 
and  all  subject  groups  have  not  been  entered,  one  can  add  design 
infoimation  by  sdecting  the  appropriate  design. 


.74 

TKS-MAIN  ABSTRACT  SELEITT-FILE-BY  ADD-DATA  ADD-CONTENT  M.\TERIALS-METHCDS: 
Regimens 

Selecting  this  option  allows  entry  of  agent,  dose  ard  dosing 
schedule  information  via  the  EXPOSURE  REGIMEN  DATA  SCREEN. 

.75 

TKS-MAIN  ABSTRACT  SELECT-HLE-BY  ADD-DATA  ADD-CONTE.NT  MATERIALS-METHODS: 
Regimens-For  which  study  design? 

The  designs  already  entered  are  listed  numerically  mid-screen, 
along  with  the  number  of  subject  groups  already  entered  for  each 
design,  the  number  of  exposure  regimens  for  each,  and  whether  a 
control  group  was  included. 

This  option  will  work  only  if  a  regimen  description  is  lacking  for  a 
design.  Type  in  the  design  number  that  requires  additional  regirnen(s) 
and  hit  "return.'  A  new  EXPOSURE  REGIMEN  DATA  SCREEN  appears. 


.76 

TKS-MAIN  ABSTRACT  SELECT-RLE-BY  ADD-DAT/i  ADDCOhrTENT:  RndData 
This  option  provides  a  mechanism  to  access  the  "Find"  path  from 
the  Add  pathway.  It  brings  you  to  another  menu  where  the  type 
of  information  you  wish  to  find  must  be  chosen  (Citation,  Paper 
Content  and  K^words-Notes). 


.77 

TKS-MAIN  ABSTRACT  SELECT-RLE-BY  ADD-DATA  ADD-CONTENT:  Unks 
Once  the  design,  subject  and  regimen  data  arc  complete  for  a 
citation,  one  can  esublish  the  relationships  between  those 
factors  using  the  "Link"  saecn.  This  option  provides  that 
capability. 


.78 

TKS-MAIN  ABSTRACrr  SELECT-RLE-BY  ADD-DATA  ADD-CONTENT  RESULTS: 
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QinFindings 

The  clinical  findings  reported  in  a  document  can  be  entered  using 
this  path.  Qinical  Findings  currently  involves  describing  the 
site  affected,  the  structural  change,  functional  alteration, 
causal  agent  and  procedural,  preventive,  diagnostic  and 
therapeutic  measures. 


TKS-MAIN  ABSTRACT  SELECT-HLE-BY  ADD-DATA  ADD-CONTENT:  Discussion 
This  section  is  under  development.  Discussion  refers  to  the 
"Discussion"  portion  of  manuscripts. 

.80 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-GTATION-DATA:  Citation 
In  order  to  locate  a  citation,  one  can  specify  a  citation  number, 
authoKs),  journal  volun«  number  and  other  attributes,  or  Query  for 
all  of  those.  The  options  available  in  the  FIND-QTATION-DATA  window 
allow  a  choice  between  those  various  methods.  Also  available  is  an 
option  which  presents  the  citations  and  associated  information 
in  a  different  format,  which  is  for  use  by  system  programmers 
(Raw-Citation). 

Select  "Gtation"  and  the  familiar  citation  saeen  appears. 

Enter  the  citation  number  and  hit  "return"  to  initiate  the 
search.  If  the  citation  is  found,  a  "BVROWSE"  menu  appears 
which  allows  one  to  view  or  modify  the  matches  discovered 
by  the  search  (Find)  process. 


TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITAP.ON-DATA:  Authors 
Selecting  this  option  allows  you  to  search  for  an  author  of  a 
specific  citation,  or  all  articles  which  include  a  specific 
person  as  an  author.  You  can  only  use  one  rume  in  the  search. 

This  screen  comes  up  with  the  cursor  on  the  "Citation  No."  field. 

You  have  indicated  tliat  you  would  like  to  find  an  author  so  you 
probably  don't  want  to  institute  the  search  process  based  on  that 
.  umber.  Move  through  the  fields  using  the  "return"  or  cursor  keys 
until  the  cursor  is  in  the  first  author  field.  Type  in  the  name 
of  the  author  (including  initials!)  whose  citations  you  wish  to 
locate,  and  hit  "Esc"  to  initiate  the  search  process. 

You  can  search  for  all  "Smith's"  regardless  of  their  initials,  by 
using  the  wild  card  (•),  e.g.,  "SMITH*."  When  wishing  to  find  all 
documents  authored  or  co-authored  by  a  particular  individual  it 
may  be  preferable  to  use  the  wild  card  in  place  of  both  initials 
because  some  journal  articles  may  not  provide  the  names  with  both 
initials.  Some  system  users  may  not  choose  to  enter  both  initials. 

Some  may  ignore  the  plea  to  NOT  place  spaces  between  the  initials, 
which  means  an  exact  match  world  need  to  have  both  initials  matched 
as  well  as  the  spacing!  A  search  using  the  first  initial  and  a 
wild  card  will  pick  up  all  the  single  and  double  initials, 
regardless  of  the  spacing.  However,  be  aware  that  you  must  pay 
attention  to  the  initials  in  order  to  weed  out  any  matches  that 
aren't  exactly  the  author  of  interest. 

If  a  match  is  four  d,  a  BROWSE  screen  appears  which  provides 
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you  with  several  options. 


.82 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATIO.N-DATA:  Query-All 
Selection  of  "Query-.Ml"  results  in  a  screen  which  provides  the 
usual  mechanism  of  searching  by  use  of  the  citation  or  file  number, 
an  author(s),  title,  or  keyword(s).  If  a  match 
is  found,  these  other  attributes  are  displayed  on  the  screen  too. 


TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA:  Raw-Citation 
This  option  invokes  another  program  which  provides  access  to 
data  in  the  TKS  System.  It  is  meant  to  be  used  by  system  developers 
and  consists  of  data  fields  and  their  abbreviations.  It  is  necessary 
to  be  familiar  with  the  screerrs  in  the  TKS  System  in  order  to 
interpret  the  abbreviations. 

Orie  can  access  citation  and  other  data  from  the  Raw-Citation 
option  (different  table  types  which  can  be  seen  by  using  the 
"Detail"  and  "Master"  options  available  in  the  Perform  screen). 

.84 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA:  Data-Add 
The  addition  of  this  option  to  the  menu  provides  a  ready  means  of 
adding  citation  data  to  a  paartially  completed  system  entry.  With 
this  option,  it  is  not  necessary  to  exit  out  to  the  "Add"  option  in 
order  to  add  citation  information. 

Please  itote  that  one  cannot  finish  a  prartially  commplctcd  data 
screen  using  "Data- Add."  In  order  to  do  that  one  must  first 
"Find"  the  entry  of  interest  and  then  "Upxlate"  it  via  the  BROWSE 
menu. 


.90 

TKS-MAIN  ABSTRACT  FIND-DATA  FINT5-CONTENT:  PaporCverview 
If  a  match  is  found  after  selection  of  'TapierOverview,"  then  the 
stated  pnirpxjse,  implied  purpxise,  p7ap>cr  class  and  number  of  study 
designs  will  be  shown  if  they  were  all  previously  entered.  If  no 
match  is  found,  and  citation  data  has  been  entered,  one  is  given 
the  option  to  add  these  parameters  to  the  citation. 


TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT  MATFRIALS-METHODS;  Design 
Selection  of  this  opition  provides  a  means  to  search  for  the 
expierimental  design  attributes  of  a  pecific  paper.  This 
includes  such  things  as  the  ‘.ype  of  study,  whether  or  not 
controls  were  used,  how  exp>erimental  group^s  were  compared 
and  assigned,  and  the  number  of  subject  groups  and  regimens. 

One  can  search  for  a  spied fic  citation  or  any  parameter 
assodated  with  the  data  fields.  The  system  will  perform  multiple 
matches,  that  is,  you  can  enter  several  atmbutes  and  the  system 
will  search  for  designs  which  match  all  of  the  spcdfications. 

Move  through  the  data  fields  using  the  "return"  or  cursor  keys. 


.92 
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TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT  MATERIALS-METHODS;  Subjects 
Selecting  "Subjects"  brings  up  a  blank  subject  screen  and  allows  a 
search  for  a  specific  citation's  subject(s)  data  If  a  match  is 
found,  the  subject  data  for  each  group  can  be  examined  and 
modified,  if  needed.  If  a  match  is  not  found,  but  the  citation 
data  is,  subject  data  can  be  added  via  "Add-Data"  in  the  FIND-CONTENT 
menu. 

You  can  specify  several  subject  features  and  the  system  will 
search  for  subject  groups  which  match  all  of  the  specifications. 

Move  through  the  data  fields  using  the  "return"  or  cursor  keys. 


.93 

TKS-MAIN  ABSTRACT  FIND-DATA  FINTD-CONTENT  MATERIALS-METHODS:  Regimens 
Selecting  "Regimer«"  brings  up  a  blank  regimen  screen  and  allows 
a  search  for  a  specific  citation's  regimen(s)  or  citations  which 
have  specific  regimen  attributes.  If  a  match  is  found,  the  regimen 
data  for  each  group  can  be  examined  and  nrtodified,  if  needed. 

If  a  citation  is  found  which  is  missing  regimen  data,  it  can  be 
added  via  "Add-Data"  in  the  FIND-CONTENT  menu. 

Move  through  the  data  fieids  using  the  "return"  or  cursor  keys. 


.94 

TKS-MAIN  ABSTRACT  FINTD-DATA  FIND-CONTENT  MATERIALS-METHODS:  Links 
Links  define  the  relationships  between  the  exposure  groups, 
design  factors,  subject  characterishcs  and  regimen  parameters. 

By  using  the  citation  or  file  number,  one  can  locate  the  links 
for  a  sp)ecific  citation,  as  long  as  they  are  already  in  the 
system.  Once  found  they  can  be  updated  (modified),  or  deleted, 
if  not  present,  they  can  be  added  to  the  system  via  the  Add-Data 
option  in  the  FIND-CONTENT  menu. 


.95 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT:  Add-DaU 
When  attempting  to  locate  a  specific  portion  of  a  paper  (Design, 
Subject  Croup,  Regimen,  etc.),  one  may  get  a  nrtessage  that 
it  doesn't  exist.  If  the  document  is  at  hand,  the  missing 
item(s)  can  be  added  using  the  Add-Data  option.  Without  this 
capability  in  the  FIND-CONTENT  menu,  one  would  have  to  exit  out 
to  the  ABSTRACT  menu  snd  select  the  Add  path. 


.96 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT  RESULTS:  OinicaiFindings 
This  option  allows  one  to  locate  the  clinical  findings  associated 
with  a  citation.  When  found,  they  may  be  edited  or  deleted.  If 
not  present,  they  may  be  added  via  Add-Dau  in  the  FIND  .CONTENT 
menu. 


.97 

TKS-MAIN  ABSTRACrr  FIND-DATA  FINDCONTENT:  Ugly- View 
This  option  is  used  by  the  system  programmers. 


.98 

TKS-MAIN  ABSTRACT  SELE(rr-nL£-BY  ADD-DATA  ADD-CONTENT:  Results 
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'Tlesults"  refers  to  Qinical  Findings,  which  can  be  accessed  via 
this  menu  choice. 


.99 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CONTENT:  Malerials-Methods 
Selecting  this  option  brings  the  user  to  a  menu  of  the  same  name 
which  provides  access  to  design,  subject,  regimen  and  link  data. 


.-1  tkscit.4gl  HELP  MESSAGES 


.100 

CITATION  DATA  SCREEN:  Source 

You  are  asked  for  the  journal  (or  book)  "source  code"  which 
is  a  5  digit  number  with  a  "I"  (or  "B")  prefix.  Make  sure  you 
begin  with  a  "J"  or  "B"  prefix'!  (Please  note  that  if  you  make 
a  mistake,  the  "Back  Space"  key  can  be  used.  If  you  wish  to 
abort  an  entry,  use  the  "Del"  [delete!  key.) 

You  are  not  likely  to  know  the  source  code  for  a  particular 
journal,  so  the  system  provides  help.  (Hit  the  F5  key  [function 
key  5]  if  your  entry  is  a  journal  or  the  F6  key  if  it  is  a  book.) 


QTATION  DATA  SCREEN:  Rle  Loc 

'Tile  Loc"  is  an  abbreviation  for  file  location.  This 
provides  a  way  to  indicate  where  a  specific  file  may  be 
located,  and  is  particularly  useful  when  files  may  be 
stored  in  sever^  different  locations.  If  one  wants  to 
locate  a  particular  file,  the  TKS  CITATION  DATA  SCREEN 
can  be  used  to  identify  where  to  look  (hopefully,  it  wjH 
be  there). 

Abbreviations  can  be  set-up  for  particular  places  or  names 
of  irxlividuals,  since  there  is  space  for  only  6  characters. 
Type  in  the  location  of  the  citation  or  book  and  hit  "return." 

If  you  do  not  wish  to  use  this  option,  hit  "return"  to  move  to 
the  next  entry  point 


.102 

CITATION  DATA  SCREEN:  Volume/Chap 

Enter  the  volume  of  the  journal  or  the  number  of  the  book  chapter 
from  which  the  article  was  taken,  then  hit  "return"  to  move  to  the 
next  field. 


.103 

CITATION  DATA  SCREEN;  Pagr^ 

Enter  the  beginning  page  number  followed  by  a  "rcham,"  ^nd  the 
ending  page  number  and  "return."  If  there  is  only  one  page,  skip 
the  second  field  by  hitting  "return." 


.104 

CITATION  DATA  SCREEN:  Year 


oxin  Knowledge  System  Source  Code 


Enter  the  year  in  which  the  ciution  was  published,  using  all 
four  digits,  then  "return."  If  you  are  not  in  a  hurry,  try 
entering  just  the  last  two  digits  of  the  year  then  return.  See 
what  happens?  An  error  message  will  occur  if  the  year  entered 
is  less  than  1000  or  greater  than  the  current  year. 

Completing  this  field  correctly  provides  the  program  with  the 
final  bit  of  information  necessary  to  construct  the  citation 
number  ("Qtation  No"),  which  appears  after  the  "return."  This 
consists  of  the  journal  source  code  (6  spaces),  the  volume  or 
chapter  number  (4  spaces),  the  beginning  page  number  (5  spaces) 
and  the  year  (four  digits).  All  items  must  be  separated  by 
hypens  (e.g.  JOOOOl -0001 -00001  1988). 

The  Citation  No.  can  be  used  to  locate  files  in  other  environments 
(Paper  overview.  Subject,  Regimen,  Links,  etc.).  When  used  in  this 

manner,  the  number  must  include  characters  in  all  of  the  spaces 
allotted,  meaning  that  zero's  should  be  used  to  fill  in  blank 
characters  at  the  beginning  of  the  field.  Each  field  is  separated 
by  a  hypen  (e.g.  JOOOOl-OOOl-00001-1988). 

.105 

CITATION  DATA  SCREEN:  Title 

Enter  the  title  of  the  article  (type  in  small  case)  with  no  period. 

There  is  room  for  even  lengthy  titles.  They  will  not  automatically 
wrap  around  the  alloted  space.  As  a  result,  words  nuy  be  split  at 
the  end  of  lines.  Do  not  tiy  to  override  this  featiore. 

The  program  does  not  correct  spelling,  so  check  your  entry.  Once 
the  title  is  complete  so  is  this  screen,  so  hit  "Esc,"  which  causes 
what  you  typed  to  be  written  to  memory. 

.106 

TKS-MAJN  ABSTRACT  FIND-DATA  J-UST:  Find.1 
JUST  DATA  SCREEN 

Hus  option  is  used  to  help  loc.ite  the  proper  source  code  for  the 
journal  in  which  the  article  you  are  attracting  appeared. 

Select  "Find*  and  type  in  what  you  believe  the  correct  abbreviation 
would  be  for  that  journal.  As  an  example,  type  TOXICOL  APPL  PHARM 
and  hit  tire  "escape"  key  (Esc).  The  program  searches  for  a  match. 

NOTE:  Return  to  this  help  message  after  trying  the  above.  Do  not 
look  at  the  second  screen  of  this  help  message  now.  If  you  elect 
to  try  this,  keep  refering  to  the  help  messages  or  the  hardcopy  of 
the  program  documentatioa 

TKS-MAIN  ABSTRACT  FIND-DATA  J-LIST:  Find.2 
JUST  DATA  ^REEN 

As  you  can  see,  sometimes  a  match  is  not  found.  When  this  occurs 
you  can  try  another  series  of  letters  or  use  an  aid  such  as  a  "wild 
card"  (•).  Try  typing  in  "TOX*"  arwl  then  "return."  Note  that  this 
time  the  system  found  a  match,  and  the  correct  abbreviation  is 
"TOXICOL  APPL  PHARM."  Notice  also  that  there  are  several  other 
potential  matches.  Use  the  up  and  down  arrow  keys  to  move  through 
the  list  until  you  come  lO  the  selection  you  desire. 
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Hit  "Esc"  to  exit  from  that  window  and  bring  you  back  to 
the  abstract  window,  where  the  system  automatically  enters  the 
correct  journal  source  code! 


.107 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  J-LIST:  Add 
JUST  DATA  SCREEN 

This  option  is  used  to  add  new  journals  to  the  source  code  list 
and  assign  them  a  source  code  number. 

Type  "a"  and  the  TKS  JOURNAL  UST  SCREEN  pops  up  with  the  cursor 
on  the  "Journal  Name"  field. 

.108 

TKS-MAIN  ABSTRACT  FIND-DATA  FlND-CITATlON-DATA  J-UST:  Select 
JUST  DATA  SCREEN 

This  option  can  be  used  after  you  have  a  list  of  journal 
abbreviations  from  which  one  must  be  selected.  Its  use 
requires  that  you  hit  delete  after  a  list  is  generated,  and 
then  hit  "Select,"  after  which  the  user  must  highlight  the 
desired  abbeviation,  and  hit  "Esc"  as  requested  on  screeiu 

Note  that  the  same  process  can  be  accomplished  with  fewer 
steps  using  the  "Find"  option. 

.109 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  B-LIST:  Rnd.l 
BLIST  DATA  SCREEN 

This  option  is  used  to  help  locate  the  proper  source  code  for  the 
book  in  which  t.^'e  article  you  are  abstracting  appeared. 

Select  "Find,"  type  in  what  you  believe  the  orrect  abbreviation 
would  be  for  that  book  and  hit  the  "Escape"  cey  (Esc).  The 
program  searches  for  a  rruitch. 

If  you  elect  to  try  tliis,  keep  refering  to  the  help  messages  or 
the  hardcopy  of  the  program  docum''  ation. 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  B-LIST:  Fmd.2 
BLIST  DATA  SCREEN 

Sometimes  a  match  is  not  found.  When  this  occurs  you  can  try 
another  series  of  letters,  or  use  an  aid  such  as  a  "wild  card" 

(*).  Try  typing  in  a  portion  of  the  title,  add  a  and 
then  hit  "return." 

If  '.here  are  several  matches,  use  the  up  and  down  arrow  keys  to 
irxive  through!  the  list  until  you  come  to  the  selection  you  desire. 

Hit  "Esc"  to  exit  from  that  screen  and  bring  you  back  to  the 
abstract  window,  where  the  system  automatically  enters  the 
correct  journal  source  code! 


.110 

TKS-MAIN  ABSTRACT  FIND-DATA  FUSiD-ClTATION-DATA  B-LIST:  Add 
This  option  is  used  to  add  new  books  to  the  source  code  list 
and  assign  them  a  source  code  number. _ 


Type  "a"  and  the  TKS  BCX3K  LIST  screen  props  up  with  the  cursor 
on  the  "Book  Title"  field. 


■Ill 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  B-LIST:  Select 
This  option  is  to  be  used  after  you  have  a  list  of  book 
abbreviations  from  which  one  must  be  selected.  When  this  is  the 
case,  choose  this  option,  highlight  the  desired  abbreviation,  and 
hit  "Esc"  as  requested  on  screen. 

The  same  process  can  be  accomplished  with  fewer  steps  using  the 
"Find"  option. 


CITATION  DATA  SCREEN:  Qtation  No. 

Typing  "return"  again,  fills  in  the  "File  No."  field  automatically. 

It  consists  of  the  first  four  letters  of  the  first  author's  last 
name,  the  journal  or  chapter  number,  the  beginning  page  number  and 
last  two  digits  of  the  year.  This  number  may  also  be  used  to  find 
the  file  after  it  is  entered  into  the  system.  It  does  not  consist 
of  extra  characters  or  sjpaces.  There  are  proriods  separating 
prortions  of  the  entry  (e.g.  SMIT.10.23.1988) 

If  the  citation  you  are  attempting  to  enter  is  already  in  the 
system,  you  will  receive  notification  of  that  fact  You  may  nnake 
changes  in  a  file  that  is  already  in  the  system,  but  not  from  the 
"New"  citation  pathway. 

If  the  citation  is  a  new  one,  "Exit"  back  to  the  "ABSTRACT"  window 
and  begin  the  entry  proces*.  If  the  citation  is  not  in  the  system, 
hit  "retrun"  fo  move  to  the  title  entr)-  field. 


TKS-MAIN  ABSTRAvCT  FIND-DATA  FINT)-aTATION-DATA  BROWSE; 
FIND-CONTENT  ^/^ATERIALS-METHODS 
FIND-CONTENT  RESULTS 
VOCABULARY  JOURNAL- VOCABULARY 
VOCABULARY  BOOK-VOCABULARY 
VOCABULARY  KEYWORD- VOCABULARY 
SIGN-VOCABULARY 

Next,  Previous,  First,  Last 

The  BROWSE  menu  appiears  as  a  result  of  a  search  process.  It 
provides  mechanisms  for  moving  between  compronents  when  more  than 
one  is  found  (Next,  Previous,  First  and  Last)  a  method  for 
changing  entries  (Upxiate),  removing  compronents  (IDelete), 
performing  another  search  process  ((Juery-Again)  and  exiting  from 
the  BROWSE  menu  (Exit). 


.171 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE:  Update 
FIND-CONTENT  MATERIA LS-METHODS 
FIND-CONTENT  RESULTS 
VOCABULARY  JOURNAL-VOCABULARY 
VCCABULARY  BOOK-VOCABULARY 
VCXZAB'JLARY  KEYWORD- VOCABULARY 
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SIGN-VOCABULARY 


The  "Update"  option  provides  a  means  for  changing  any  component  in 
a  window  and,  hence,  the  database  entry.  This  is  necessary  when  a 
component  has  been  incorrectly  or  incompletely  entered. 

"Update"  allows  you  to  add  or  delete  data.  To  add  data  to 
the  end  of  a  list,  scroll  through  it  using  the  down  arrow  key 
until  an  empty  author  field  is  reached.  Then,  type  in  the  data 
followed  by  an  "Esc." 

If  you  have  a  list  of  data  and  need  to  place  an  entry  in 
the  nuddle  of  a  list,  put  the  cursor  on  the  line  below  where  you 
would  like  it  added  and  hit  the  "H"  A  new  line  will 
be  opened  and  you  can  type  in  the  new  entry  followed  by  an  "Esc," 
which  will  write  it  to  memory. 

To  delete  an  entry  you  must  place  the  cursor  on  the  line  you  would 
like  to  delete  and  hit  the  "F2"  key.  The  line  will  be  deleted, 
and  after  an  "Esc,"  the  changes  t^l  be  written  to  memory. 


.172 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE:  Delete 
This  is  a  particularly  powerful  option  which  should  be  used 
carefully.  When  selected,  the  DELETE-JOURNAL-QT  menu 
comes  up. 

.174 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE 
DELETE-JOURNAL-OT:  (Overview) 

"Options" 

The  DELETE-JOURNAL-QT  menu  comes  up  with  options  to  delete  a 
s.'ngle  screen  (This-Table)  or  all  saeens  link^  to  that  citation 
(All-Tables). 


(Hit  "return"  or  "s"  to  see  the  help  file  for  "This-Table") 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE 
DELETE-JOURNAL-CIT:  This-Table 

Selecting  this  option  will  remove  from  the  database  all  the  data 
shown  on-SCTeen  and  return  the  user  to  the  BROWSE  menu. 


.175 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE 
DELETE-JOURNAL-QT:  All-Tables 

Selecting  this  option  will  remove  from  the  database  all  of  the 
data  shown  on  screen  and  all  of  the  data  associated  with  all 
other  screens  for  this  citation  (e.g..  Paper  Overview,  Design, 

Subjects,  Regimens,  Links,  Qinical  Findings,  Comments,  etc.). 

The  program  gives  a  message  on-screen  each  time  a  component  has 
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been  removed.  You  can  neither  reverse  the  process  once  it  •las 
started  nor  recover  the  data  once  it  has  been  removed. 

When  ttie  delete  process  is  finished,  the  user  is  returned  to  the 
BROWSE  menu. 


.176 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATiON-DATA  BROWSE:  Query-Again 
If  you  would  like  to  perform  another  search  this  option  will  allow 
immediate  access  to  the  screen  for  entry  of  another  search  parameter 
without  having  to  exit  out  all  the  way  back  tc  the  "Find"  option 
in  the  ABSTRACT  nr  enu. 


.-1  tksauth.4gl  HELP  MESSAGES 


.200 

AUTHOR  DATA  SCREEN 

Enter  the  last  name,  a  space  and  initials  (no  space  between 
initials)  of  the  first  author  as  r  jques'ed  in  the  note  on  the 
bottom  of  tthe  screen.  Hit  "return"  and  the  cursor  moves  to  the 
"sequence"  area  where  you  can  enter  the  correct  position  of  the 
author  in  the  sequence  of  ruimes  on  the  publication.  You  can  add 
up  to  six  names  to  the  author  list. 

When  you  are  finished,  hit  "Esc"  once  again.  This  writes  to 
memory  the  author  list  and  the  keyword  screen  pops  up. 


.205 

TKS-MAJN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  BROWSE:  Delete  (Authors) 
This  is  a  particularly  powerful  option  which  should  be  used 
carefully.  When  selected,  a  question  pops  up  asking  if  you 
would  "like  to  Delete  ALL  author  entries  for  this  Citation." 

Respond  (y  for  yes,  n  for  no)  and  hit  "return." 

If  you  need  to  delete  one  (or  fewer  than  all  of  the  entries)  use 
the  "Update"  option.  Scroll  through  the  author  list  using  the 
au^r  keys,  and  use  the  "F2"  key  to  delete  a  specific  author. 


.-1  tkskey.4gi  Help  Messages 


JOO 

TKS-MAIN  ABSTRACT;  KEYWORD  DATA  SCREEN  (Overview) 

Hit  "return"  TWICE  to  go  directly  to  the  help  for  KeyCodes. 

KeyCodes  and  Keywords  can  be  used  to  enter  specific  information 
on  any  aspect  of  a  paper.  Ginical  signs,  physical  signs,  gross 
pathology,  clinical  pathology  and  histopathology  findings,  toxin 
preparation  methods,  animal  treatment  information,  statistical 
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analysis  or  any  other  similar  component  of  a  report. 

Keywords  provide  more  than  ancillary  information.  They  can  be 
us^  to  search  for  certain  papers  that  meet  particular  criteria. 

Which  papers  report  effects  of  toxin  X  in  monkeys?  Who  gave  feed 
contaminated  with  purified  toxin?  Cultured  extracts?  Which  papers 
reported  the  use  of  fasted  mice  and  which  allowed  access  to  food 
up  until  the  time  of  dosing?  Do  young  animals  react  differently 
than  older  ones? 

KeyCodes  are  used  to  simplify  the  entry  process  by  decreasing  the 
number  of  keystrokes  needed  to  enter  a  description. 

The  current  keycodes  were  designed  primarily  for  use  with  journal 
or  book  articles  describing  toxicologic  studies  with  myrotoxins, 
though  they  would  be  suitable  for  describing  work  with  other 
toxins.  They  are  arranged  by  major  headings  (toxin  type, 
species,  exposure  route,  etc.) 

NOTE  TO  USERS!  This  portion  of  the  program  is  under  development. 
We  are  exploring  "cleaner"  easier  ways  to  enter  and  use  keywords. 

We  would  prefer  that  the  program  excerpt  pieces  of  data  that  are 
entered  as  part  of  the  other  data  modules  and  generate  its  own 
keyword  I’st  rather  than  the  user  having  to  look  up  what  keycode 
goes  with  each  keyword.  This  will  take  sc-oe  effort.  Until  hat 
is  possible,  what  is  currently  available  can  be  used. 


Hit  "retum"  to  go  directly  to  the  help  for  KeyCodes. 

KeyCodes 

Enter  the  appropriate  keycooe(s)  and  hit  "iv.tum."  The  keywords 
now  appear  to  the  right.  Hit  "Esc"  to  write  them  to  mennory. 

If  you  no  not  wish  to  enter  keycodes/ keywords  at  this  time,  hit 
the  "delete"  key. 

SirKe  you  probably  do  not  know  what  the  keywords  are,  enter  a 
code  of  "C02"  and  press  "return."  The  keyword  matching  that 
code  is  placed  in  the  next  field.  1/  one  knows  the  keywords, 
this  is  the  quickest  way  to  enter  them.  It  may  be  useful  to 
have  a  hard  copy  of  the  lists  in  order  to  look  them  up  "manually" 
by  major  heading  and  group.  If  an  incorrect  entry  is  placed  in 
the  keycode  field  followed  by  a  "return,"  or  you  hit  the  "delete" 
key,  the  program  assumes  you  need  help,  and  brings  up  the  KEY* 
UST  SCREEN. 

When  you  are  finished  with  the  KEYWORD  DATA  SCREEN  the  next 
screen  has  a  menu  title  of  "CURRENT  PAPER"  and  has  only  one 
option,  "Exit."  That  is  because  you  are  finished  with  the 
citation  portion  of  the  abstract  and  must  begin  the  next  phase  of 
data  entry.  Hit  "E"  or  "return"  to  go  on.  You  are  then  asked  if 
you  would  like  to  "add  content  data  for  the  paper." 

If  you  type  "n"  then  "return,"  the  system  goes  back  to  the 
"Abstract"  screen.  Typing  "y"  followed  by  "return"  results  in  a 
new  screen  which  bejpns  the  paper  overview  process. 
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TKS-MAIN  ABSTRACT  FIND-DATA  FTND-KEYWORDS-NOTES:  Keywords 
This  pathway  provides  a  means  of  listing  all  the  keywords  that 
have  been  entered  for  a  particular  citation.  The  screen  comes  up 
with  the  cursor  on  the  Citation  field  and  a  message  asking 
you  to  "Enter  search  criteria  and  hit  ESC  to  search."  Provide 
the  citation  number  (or  the  Citation  file  number)  and  hit  "Esc." 

If  the  citation  exists  in  the  system,  and  if  keycodes/ keywords 
were  assigned,  they  will  appear. 

Watch  for  messages  on-screen  that  will  indicate  what  you  should 
do.  Typically  a  message  will  come  up  asking  you  to  hit  "Esc"  to 
continue,  after  which  a  "BROWSE"  menu  ^.ill  appear.  There  are 
on-line  help  messages  available  for  that  menu. 
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TKS-MAIN  ABSTRACT  KEY-LIST:  Find 

The  "Find"  option  helps  you  search  for  particular  keywords  that 
are  in  the  keyword  list,  and  identifies  their  associated  keycode. 

The  following  is  an  example: 

Type  "f"  and  the  cursor  is  placed  on  the  first  field 
(keycode).  Hit  "return"  and  the  cursor  gees  to  the  next 
field.  Typie  in  the  word  "mouse"  and  hit  "Esc."  The 
program  searches  for  that  keyword  and,  if  it  is  found,  fills 
in  the  keycode  number.  One  can  complete  those  two  fields 
for  the  paper  being  abstracted  by  hitting  "Esc"  once  again. 

F  om  there  the  process  starts  over  for  the  next  keyword. 

(The  process  can  be  aborted  by  hitting  the  delete  key  unless 
"Exit"  is  available  in  the  menu.) 

If  a  keyword  s  seardied  for  but  not  found,  the  program  responds 
with  the  message  tfiat  "There  is  no  keyword  matching  the  first 
three  letters"  and  rehims  you  to  the  original  screen.  If  that 
occurs  and  you  would  like  to  add  a  keyword  to  the  list,  select 
"Add"  in  the  KEY-UST  menu. 
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TKS-MAIN  ABSTRACT  KEY-UST:  Add 

The  "Add"  option  allows  the  freedom  to  associate  new  or  additional 
keywords  with  a  citation.  If  you  do  not  wish  to  enter  keywords  at 
this  time,  hit  the  "delete"  key  when  you  are  in  the  KEYWORD  DATA 
SCREEN.  (If  you  follow  this  later  path,  the  screen  indicates  that 
it  is  preparing  citation  "information.") 
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TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA  FIND-KEYWORDS-NOTES 
BROWSE:  Delete  (Keywords) 

This  is  a  particularly  powerful  option  which  should  be  used 
carefully.  When  selected,  the  user  is  asked  if  tney  would  like 
to  "Delete  ALL  keyword  entries  for  this  Citation."  Respond  (y  for 
yes,  "n"  for  no)  and  hit  "return." 

Delete  removes  ALL  of  the  keywords.  If  you  need  tn  delete  one 
(or  fewer  than  all  of  the  entries)  use  the  "Update"  option. 
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-.1  tkspapovr.4gl  Help  Messages 


PAPER  OVERVIEW  SCREEN:  Suied  Purpose 

There  is  room  here  to  succintly  identify  the  stated  purpose  of 
the  paper  or  book.  That  is,  the  purpose  as  stated  by  the  authors. 

There  are  50  spaces.  Type  in  the  stated  purpose  followed  by  "return." 
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PAPER  OVERVIEW  SCREEN:  Implied  Purpose 

One  can  often  identify  information  which  hints  at  a  purpose  not 
specifically  stated.  For  example,  researchers  may  study  the 
effects  of  an  expensive  toxin  on  mice,  because  they  do  not  have 
enough  material  to  use  on  a  larger  animal  that  may  be  more  closely 
related  to  the  target  population,  people.  Or,  the  long  term  effects 
of  a  toxin  such  as  cadmium  may  be  the  primary  interest,  but  animals 
were  only  fed  contaminated  diets  for  2  weeks  because  they  developed 
a  viral  infection  and  began  to  die. 

Type  in  the  implied  jnirpose  followed  by  "return."  If  there  is  none, 
leave  it  blank  (hit  "return"). 


.402 

PAPER  OVERVIEW  SCREEN:  Paper  Oass 

Select  one  of  the  descriptors  from  the  pop-up  menu  on  the  right 
side  of  the  screen  by  typing  the  indicated  letter  in  the  space 
provided. 

Paper  Qass;  First  Field  (hit  'return"  TWICE  to  see  the  secorvi 
field  helo) 

E>  Experimer  tal:  Includes  documents  which  report  the 
results  of  experiments  v’hich  have  been  performed-  This 
category  includes  both  in  vivo  aiul  in  vitro  studies. 

N»  Non-Experimental:  Documents  in  this  category  may  include 
the  folkneing: 

1.  Qinical  case  reports  which  detail  drcumstancet  of 
exposure,  results,  effects  of  treatment  on  the  outconw, 
and  $uggc:tions  for  preventing  future  exposures. 

2.  Epidemiology  reports  which  look  at  causes  and  effects 
in  either  a  retrospective  or  prospective  direction. 

[•  li\fo  Oily;  These  may  include  literature  reviews 
comments  such  a>  letters  «o  editors. 

C»  Combination;  As  the  nan>e  suggests,  this  category 
includes  documents  which  contain  .’nore  than  one  type  of  paper 

class. 


I 
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oxifi  Knowledge  System  Source  Code? 


When  you  complete  that  field  the  cursor  moves  to  the  next  one  and 
the  descriptors  change.  Enter  the  appropriate  classification  and 
the  cursor  will  move  to  the  next  field. 

Hit  "s"  or  "return  to  view  the  help  for  the  second  field. 
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Help  412  Paper  Qass  Choices;  Second  Field 

E10»  Toxiaty;  Refers  to  the  study  of  the  toxic  effects  of 
compounds  or  agents,  either  in  vitro  or  in  vivo. 

E20a  Mechanisms:  The  report  defines,  or  is  in  some  way 
•elated  to,  the  molecular  mechanism(s)  of  action  of  the 
compound. 

E30a  Kinetics:  Related  to  the  phannacodyramics  of  a  toxic 
compouitd  or  an  agent  used  in  treatment. 

E40«  Treatment:  The  document  reports  the  effectiveness  of 
one  or  more  txterapeutic  agents  in  treating  a  toxicosis 
induced  by  an  agent 

E50»  Pharmacol:  Involves  drugs;  their  actions,  toxicity, 
and  effectiveness. 

E60«  Chemistry:  The  document  is  primarily  one  which  is 
associated  with  the  chemistry  of  a  compound.  Thi.«  category' 
is  further  broken  down  into  the  following: 

E61«  Analysis:  Includes  detection,  and  r.ew  methods  of 
detection. 

E62«  Synthesis;  Irvcludes  the  syrithcsis  of 
radiclabel'td  compounds,  metabolites  and  cogeners. 

E63a  Purific.:  E)eais  with  the  purification  of  a 
compourvd  involving  new  methods  of  isolation,  improved 
yields,  etc 

N10«  Case  Report;  (described  above) 

N20«  Epidemiology;  (described  above) 

I01»  Review:  (described  abo*’e) 

I02«  Comment;  (desenbed  above) 

C01«  Case-t- Review:  (desenbed  above) 
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PAPER  OVERVIEW  SCREEN;  Number  of  Study  Designs  in  Paper 
this  may  be  simply  staled  in  the  manusenpt,  but  more  often  you 
will  have  to  carefully  check  t)te  nuicrial  ar\d  methods  section  (and 
sometimes  the  .Results  and  Discussion)  to  determine  the  number  of 
designs  used '.n  the  expennnents  described.  Usually  there  will  be 
_  s  single  study  design  for  each  particular  question  or  hypothesis. 
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Defining  the  study  design  goes  hand  in  hand  with  determining  the 
questions  being  asked.  Good  researchers  will  specifically  slate 
their  hypccheses  and  this,  in  nirn,  will  help  you  in  entering 
their  paper  into  the  database. 

You  may  use  the  arrow  keys  or  the  "return"  key  to  cycle  through 
port’ons  of  this  screen  if  the  need  arises.  You  might  think  of 
a  better  way  to  express  the  implied  purpose,  or  you  may  have  made 
an  error  that  needs  to  be  corrected. 

Remember,  useful  keys  for  correcting  mispeilings  are  the  "Control-x" 
sequence  to  erase  a  letter  in  an  entry,  and  "Control-a"  to  insert 
characiers. 

Enter  the  number  of  designs  and  hit  "Esc,"  since  you  are  done  with 
this  screen.  The  STUDY  DESIGN  DATA  SCREEN  comes  up  next. 

.404 

Paper  Overview  Browse:  Delete 

Selecting  this  option  will  bring  up  the  question  "Dc  you  want  to 
delete  this  paper  overview?  (y/n)"  Type  in  the  appropriate  letter 
and  hit  "return." 
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THERE  AP^  MORE  DESIGNS  THAN  INDICATED:  Cancel 

In  the  PAPER  OVERVIEW  SCREEN  there  is  a  field  for  indicating  the 
number  of  designs  described  in  this  paper.  If  you  attempt  to 
"Add"  paper  overview  data  to  a  citation  which  already  has  if  you 
will  be  given  the  opportunity  to  "Update"  that  data.  You  can  also 
"Update"  that  information  by  following  the  "Find"  path  and 
clKXisinj  the  "Update"  option  from  the  BROWSE  menu. 

If  you  update  the  number  of  designs  to  a  lower  number,  the 
system  recognizes  that  either  an  error  was  made  in  entering  the 
new  number,  or  design  data  needs  to  be  deleted  from  the  records. 

"Cancel"  is  the  option  which  provides  a  means  to  go  back  to  the 
overview  screen  and  change  the  number  of  designs  if  an  error  was 
made  during  the  update. 


THERE  ARE  MORE  DESIGNS  THAN  INDICATED:  Delete  Design 
In  the  PAPER  OVERVIEW  SCREEN  there  is  a  field  for  indicating  the 
number  of  designs  described  in  this  paper.  If  you  attempt  to 
"Add"  paper  overview  data  to  a  citation  which  already  has  it,  you 
will  be  given  the  opportunity  to  "Update"  that  data.  You  can  also 
"Update"  that  infon.iation  by  following  the  "Find"  path  and  choosing 
the  "Update"  option  from  the  Browse  menu. 

If  you  update  the  number  of  designs  to  a  lower  number,  the  system 
recognizes  that  either  an  enor  was  made  in  entering  the  new 
number,  or  design  data  iiccds  to  be  deleted  from  the  records. 

"Delete-Design"  provides  a  mechanism  to  search  for  and  delete  the 
designs  you  wish  to  remove. 
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DELETE.PAPER;  Paper-Only 

Using  this  option  you  will  delete  ONLY  the  Paper  Overview  portion 
of  this  citation  abstract,  NOT  other  data  tables  linked  to  it  such 
as  designs,  subject  information,  regimens,  etc. 

You  can  correct  information  in  the  PAPER  OVERVIEW  SCREEN  by  doing 
an  "UpKlate,"  which  can  be  accessed  via  "find"ing  the  citation  and 
choosing  "Update"  from  the  BROWSE  menu. 
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DELETE.PAPER:  AU  Units 

In  choosing  this  oprion,  vou  will  delete  not  only  the  information 
in  the  PAPER  OVERVIEW  SCREEN,  but  also  ail  the  data  ubles  linked 
to  it,  such  as  designs,  subject  information,  regimens,  clinical 
findings,  etc. 

.409 

DELETE  PAPER;  DO  YOOU  REALLY  WANT  TO  DELETE  ALL  CONNECTED  TABLES? 
(No) 

This  is  a  safequard  against  accidentally  removing  data  that 
someone  worked  hard  to  place  in  the  database. 

Using  this  option,  which  has  sucli  broad  deletion  powers,  suggests 
that  there  are  major  problems  with  the  data  as  entered.  The  most 
efficient  approach  to  correcting  them  is  to  delete  nearly  all  of 
the  data  and  start  over. 

Type  "n"  followed  by  "return,*  if  you  do  not  wish  to  delete  all 
of  the  tables.  Type  *y"  followed  by  "return,"  if  you  do. 
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DELETE  PAPER;  DO  YOOU  REALLY  WANT  TO  DELETE  ALL  COIVNEfCTED  TABLES? 
(Yes) 

This  is  a  ufeguard  against  accidentally  removing  data  that 
someone  worked  hard  to  place  in  the  database. 

Using  this  option,  w.  i  has  such  broad  deletion  powers,  suggests 
that  there  are  major  problems  wth  the  data  as  entered.  The  most 
effecient  approach  to  correcting  them  is  to  delete  nearly  all  of 
the  data  and  start  over. 


Type  "n"  followed  by  "return,"  if  you  do  not  wish  to  delete  all  of 
iJie  table*.  Type  "y"  followed  by  "return,"  if  you  do. 
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Which  of  the  design  should  be  deleted? 

Below  this  statement  on  the  data  scren  are  one  or  more  lines 
representing  the  dcsigti  number  (left  margin),  the  number  '^f 
subject  groups  and  regimens  in  that  design,  and  whcllier  or  not 
control  groups  were  incl  ided. 

If  the  numbers  are  not  luffiaently  descriptive,  you  need  (.i  go  to 
the  "Find*  option  in  the  ABSTRACT  menu  and  follow  the  path  to  find 
the  design  you  wish  to  delete.  This  method  will  allow  you  to 
directly  visualize  the  data  m  the  ,design  (and  potentiailly 
theolher  data  tables  linked  to  it).  A  BRjOWSE  menu  is  available 
when  a  data  table  is  foound,  and  "Delete"  is  an  option  in  that 


menu. 


You  can  abort  this  process,  even  at  this  late  stage,  by  using 
the  "delete"  key  as  your  resjX)nse. 


.-1  tksdsgn.4gl  Help  Messages 


STITOY  DESIGN  DATA  SCREEN:  Type  oi  Study 

Enter  a  selection  from  the  menu  to  the  right  by  typing 
the  corresponding  abbreviation  followed  fay  "return." 

Note:  You  an  move  through  the  different  fields  in  this 
screen  by  using  the  arrow  and/or  return  keys.  This  is 
particularly  useful  if  you  find  that  an  error  has  been 
nude  and  you  need  to  edit  a  previous  held. 

The  type  of  selection  screen  which  comes  up  after  an  entry  depends 
on  the  response  in  a  previous  field.  For  example,  if  you  indicated 
earlier  in  the  OVERVIEW  screen  that  the  paper  being  entered  was  and 
"Info  only"  paper,"  then  you  wouldn't  have  been  able  to  indicate 
there  were  study  designs,  sitKe  those  sorts  of  papers  do  not 
generally  iruJude  experiments  (experiments  shcould  have  designs). 

With  the  current  screen,  if  you  do  indicate  that  there  are  no 
controls,  you  won't  be  able  to  enter  the  fields  from  "comparison 
Into"  on  dowft 


(Dc  we  want  to  enter  stydtfile,  dsgncur,  dsgntot,  dsgncew, 

dagntTfr/i'?) 


.501 

STUDY  DESK^  DATA  SCREEN:  In  Vivo  or  In  Vitro 
Again,  select  from  the  menu  to  the  right  and  type  in  the 
appropriate  classification,  followed  by  a  "return." 


.503 

STUDY  DESIGN  DATA  SCREEN:  Controls  (y/n) 

Enter  "y"  if  negative  controls  were  used  in  the  experimental 
design  a.ul  "n"  if  they  were  not  (followed  by  "return"). 

,504 

STUDY  DESIGN  DATA  SCREEN:  Compar.son  Info 

if  the  answer  to  the  above  ts  "y,"  then  you  will  be 
able  to  enter  information  in  this  and  following  fields. 
Type  the  correct  letter  from  the  pop-up  menu  and  hit 
"return." 
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STUDY  DESIGN  DATA  SCREEN:  Comparison  Methods 


roxin  Knowledge  System  Source  Code 


Type  the  appropriate  letter  and  number  followed  by  "return." 
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STUDY  DESIGN  DATA  SCREEN:  Control  .Methods 
Type  the  proper  letter  (no  return  necessary). 

307 

STUDY  DESIGN  DATA  SCREEN:  Control  Types 
Type  the  correct  letter  and  then  "return." 

308 

STUDY  DESIGN  DATA  SCREEN;  How  were  subjects  assigned  to  their  groups? 
Type  the  appropriate  letter  followed  by  a  "return." 


309 

STUDY  DESGIN  DATA  SCREEN:  Number  of  Subject  Groups 

Examination  of  the  report  is  necessary  to  determirve  the  appropriate 
response  here.  Please  rtote  that  the  number  of  subject  groups 
encompassing  the  current  design  should  be  entered  here  (not  the 
total  number  of  subject  groups  for  the  entire  report)!  Enter  the 
number  followed  by  "return."  This  brings  up  the  first  "SUBJECTT 
GRGUP  DATA  SCREEN."  It  will  be  followed  by  addib.cnal  similar 
scretns  if  you  indicated  that  there  are  multiple  subjet:!  groups. 

Hit  "rettim"  to  automatically  enter  the  Gtadon  No.  and  move  the 
cursor  to  the  first  data  field. 
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STUDY  DESIGN  DATA  SCREEN:  Number  of  Exposure  Regimens 

An  exposure  regimen  encompasses  the  different  types  of 
treatments  that  have  been  giveru  For  example,  gi\ing 
a  different  dose  or  a  longer  exposure  would  constitute 
a  different  regimen.  Enter  t.he  number  followed  by 
"return." 
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BROWSE:  Delete  this  entry  from  daubase 

The  delete  option  providei  different  capabilities  for  different 
components  of  the  TKS  system.  The  "design"  delete  function  allows 
deletion  of  the  design  screen  shown  on-screen,  as  well  as  all 
"tables"  linked  to  that  design. 
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BROWSE:  Query- A  gain 

If  you  would  like  to  perform  another  search  this  option  will  allow 
immediate  access  to  the  screen  for  entry  of  another  search 
parameter  without  having  to  "Exit"  all  the  way  back  to  the 
"Find"  option  in  the  ABSTRACT  menu. 

You  may  tearch  for  any  single  entry  (such  as  the  citation  number 
or  type  of  study),  or  use  several  fields  of  interest  (e  g..  Type 
of  Study  and  In  Vivo)  to  further  narrow  down  the  potential  matches. 
In  addition,  wild  cards  (*)  can  be  used  to  help  compensate  for  some 
differences  in  terminology. 
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DELETE-DESIGN:  Design  Only 

Selecting  "Design  cinly"  will  cause  only  the  design  shown  on-screen 
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to  be  deleted.  The  remaining  "Links"  such  as  the  subjects  and 
regimens  will  be  left  intact.  If  one  wishes  to  delete  all 
associated  hides  along  with  the  current  design,  choose  the  option 
"All  Unks." 


514 

DELETE-DESIGN:  All  Links 

If  you  choose  "All  Links,"  the  current  design,  as  well  as  all  subjects 
and  regimens  linked  to  it  will  be  deleted.  If  you  only  want  to 
delete  the  criTent  design  (the  one  shown  on  screen),  use  the  option 
"Delete  Only." 

515 

DELETE-DESIGN:  ARE  YOU  REALLY  SURE....;  (No) 


516 

DELETE-DESIGN:  ARE  YOU  REALLY  SURE....:  (Yes) 


.-1  tkssgro.4gl  HELP  MESSAGES 
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SUBJECT  GROLT  DATA  SCREEN:  Group  (  1  of  [  ]  of  design  (  J. 

The  screen  indicates  which  group  of  the  design  you  will  entering, 
the  total  number  of  groups,  and  which  particular  design. 

The  designation  for  the  first  group  (they  arc  assigned  sequential 
numbers)  comes  up  autonutically.  Hit  "return"  to  go  to  the 
"Source'"  field  !f  you  would  like  to  enter  subject  data  for  some 
other  group,  enter  its  number  designation  followed  by  "return." 

The  next  two  fields  are  bracketed  differently  than  the  others. 

You  cannot  change  them  because  they  were  derived  from  the  design 
screea  Therefore,  a  "return"  after  "Group"  brings  the  cursor  to 
the  "Species"  field  where  the  common  name  of  the  aninnal  used  can 
be  entered.  Another  "return"  places  the  cursor  in  the  "Breed" 
field. 
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SUBJECT  CROUP  DATA  SCREEN:  Exposure  Group 

Note  that  to  the  right  of  this  heading  and  the 
subsequent  fields  is  a  statement  ExpoGrp<  >of<  >. 
These  two  fields  will  be  filled  in  and  the  system 
usually  begins  with  exposure  group  1  of  however  many 
groups  there  are. 

The  designation  for  the  first  group  (they  are  assigned 
sequential  numbers)  comes  up  automatically.  If  you 
would  like  to  enter  subject  data  for  some  other  group 
enter  its  number  designation  followed  by  "return." 

Note  that  the  next  two  fields  are  bracketed  differently 
than  the  others.  You  cannot  change  those  fields  in  this 
screen  because  they  were  derived  from  the  design  screen. 
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Therefore,  a  return  after  "Group"  brings  the  cursor 
to  the  "Species"  field  where  the  common  name  of  the 
animal  used  can  be  entered.  "Retum"s  move  you  through 
the  screen. 


SUBJECT  GROUP  DATA  SCREEN:  Source 

The  "Source"  field  is  meant  to  be  used  to  identify  wr.ere 
the  animals  came  from. 


SUBJECT  GROUP  DATA  SCREEN:  Number 

"Number"  refers  to  the  number  of  animals  in  the  group. 


SUBJECT  GROUP  DATA  SCREEN:  Sex 

The  following  are  suggested  abbreviations  for  "Sex:"  F  for 
female;  S  for  a  neutered  female;  P  for  a  pregnant  animal;  L 
for  a  laoating  one;  M  for  male;  C  for  a  castrated  male;  and 
B  for  both  male  and  female.  The  program  converts  lower  case 
letters  to  upper  case  so  there  is  no  need  to  use  the  shift  key. 
There  are  four  spaces  in  the  field  so  it  is  possible  to  use  soir;e 
combinations.  If  all  four  spaces  are  filled,  the  cursor  jumps 
to  the  next  field. 


SUBJECT  GROUP  DATA  SCREEN:  Age 

Animal  age  can  be  represented  in  any  form  using  numbers  in  the 
first  field  ai.d  units  of  time  in  the  second  (when  the  cursor  is 
in  the  second  field  a  note  at  the  bottom  of  the  screen  requests 
that  units  be  entered). 

We  recorrunend  that  the  age  of  die  subject  at  the  time  of  study 

initiation  be  placed  in  this  field.  Since  the  duration  of  the 

study  is  given  in  tl\e  EXPOSURE  REGIMEN  DATA  SCREEN,  the  user  can 

calculate  the  age  ot  the  subject  at  the  time  of  evaluation  if  it 

is  not  specifically  given. 


SUBJECT  GROUP  DATA  SCREEN:  Weight 

Subject  weights  may  be  entered  in  any  form  Usually  they  will 
conform  to  the  article  format.  The  first  field  is  for  a  number 
and  the  second  for  the  uruts  (as  indicated  by  the  message  at  the 
bottom  of  the  screen  when  the  cursor  is  in  the  second  field). 

Metric  units  are  preferred,  arvd  in  fact,  the  program  converts  all 
entries  to  a  metric  format. 

The  question  arises,  "wha.-  do  you  enter,  a  range  of  weights  or  a 
mean,  or  individual  weights?"  Currently,  there  is  no  provision 
for  providing  either  individual  weights  when  nnore  than  one  animal  is 
used,  or  a  range  of  values.  Provide  the  mean,  or  an  estimate  of 
it. 


SUBJECT  CROUP  DATA  SCREEN:  Height 

As  for  the  above,  the  first  field  should  be  a  number  and  the 
second  a  unit  of  measure.  Suggested  abbreviations  are  indicated. 


.608 

SUBJECT  GROUP  DATA  SCREEN:  Occupation 

Papers  involving  people  will  often  provide  their  occupations. 
There  are  twenty  spaces  available  for  tlnis  en  jy. 


.609 

SUBJECT  GROUP  DATA  SCREEN:  Health  Status  of  Subjects 
If  this  is  not  reported  in  the  publication,  leave  the  space 
blank,  or  indicate  that  no  information  is  available  (type  in 
"UNKNOWN").  If  it  is,  try  to  ’ndicate  the  status  in  the  space 
provided  or  type  a  more  Jen?  ment  in  the  comment  section 

and  indicate  in  this  field.  (Tf  -  -  ,  ’ENT  SECTION  IS  NOT  YET  READY 
FOR  USE.) 


SUBJECT  GROUP  DATA  SCREEN;  .  ■  '  'nber  of  Exposures  Received 

This  field  can  provide  more  info.  'tan  just  whether  the.e 

was  a  single  or  multiple  exposure.  hat  frequently 

arises  is  "What  about  constant  exposu.  diet?"  We  suggest 

that  this  be  handled  by  typing  "INDIET"  in  the  spaces  provided. 
Again,  special  remarks  can  be  made  in  the  comment  section. 

WVien  the  first  subject  saeen  is  completed,  typing  rclum  after 
the  last  entry  will  cause  the  next  subject  screen  to  come  up. 

This  is  indicated  by  the  "Group  <  >"  designation.  You  can  go 
back  and  forth  oet  ween  subject  screens  by  using  the  up  and  down 
arrow  keys. 


.611 

BROWSE:  Delete  this  entry  from  the  database 

Selecting  "Delete"  from  the  BROWSE  menu  will  result  in  the  removal 
of  the  cunent  subject  group  from  the  diation,  and  the  database. 


.612 

BROWSE:  Query-.Again 

TKS-MAIN  ABSTiUCTFTND'DATA  FIND-OTATION-DATA  BROWSE:  (2uery- Again 
If  you  would  like  to  perform  another  search  this  option  will  allow 
immediate  access  to  the  srceen  lO'  entry  of  another  search 
parameter  without  having  to  "Exit"  out  ail  the  way  back  to  the 
"Find"  option  in  the  ABSTRACT  window. 

You  may  search  for  any  single  entry  (such  as  Rat  in  the  species 
field),  or  use  several  fields  of  interest  (RAT,  SPRACUE-DAWLEY, 

FEMALE)  to  further  narrow  down  the  potential  matches.  In 
addition,  wild  cards  (*)  can  be  used  to  help  compensate  for  some 
differeiKei  in  terminology. 


•1 

R.  Want  to  add  statements  for  citfile,  grp  (  J  of  I  ),  etc? 
see  tkssubgrp.per 
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.700 

EXPOSURE  REGIMEN  DATA  SCREEN  (Overview) 


A  "return"  will  fill  in  the  "Citation  No."  field.  Again,  you 
can  identify  where  you  are  by  looking  at  the  description  under 
"Gtation  No."  which  tells  you  how  many  regimens  there  are  (based 
on  what  you  typed  in  previously)  and  which  one  you  are  currently 
describing.  As  before,  fill  in  the  appropriate  data  by  selecting 
from  the  options  available  at  each  field.  You  do  not  need  to  fill 
in  every  field,  only  those  which  are  defined  in  the  report.  For 
example,  if  you  indicate  that  there  was  ordy  one  exposure,  then  you 
need  not  fill  in  the  field  "every." 

There  is  no  set  format  for  filling  in  these  spaces,  try  to  make 
the  information  as  descriptive  as  possible.  Filling  in  the  entire 
field  causes  the  otrsor  to  roll  ever  to  the  next  one.  If  you  do  not 
entirely  fill  in  a  field,  you  must  Itit  "return"  to  move  to  the  next 
one. 

When  you  fill  in  the  last  field,  and  assuming  there  are  multiple 

reginvens,  the  next  screen  is  brought  up  with  the  cursor  on  the 

"Gtation  No."  field.  Hit  "return"  to  fill  it  in.  Once  again, 

the  up  and  down  arrow  keys  enable  you  to  move  between  the  regimen 

descriptions. 

When  the  reginnen  screen(s)  is/ are  completed,  the  next  design 
screen  comes  up  and  the  cycle  begins  again.  Please  note  that 
"return"  will  fill  in  tl.e  "Gtation  No."  Hit  "return"  when  the 
cursor  moves  to  the  "Group"  field. 

When  all  of  the  design,  subject  and  regimen  screens  are  complete, 
you  can  establish  the  proper  lirtks  between  them.  This  means 
placing  them  within  the  proper  relationships  so  that,  for  example, 
the  design  for  the  rabbit  portion  of  the  study  is  properly  related 
to  the  rabbit  subject  group  and  exposure  regimen. 


.701 

EXPOSURE  REGIMEN  DATA  SCREEN;  Purpose  for  Exposure 
This  field  is  used  for  defining  the  reason  for  administering  (or 
not  admini.stering,  in  the  case  of  some  control  groups)  the  agent. 

Wo-s  it  an  effort  to  define  some  aspect  of  toxicity  or  evaluate  a 
therapy?  Determine  pharmocodynamic  characteristics  such  as  plasma 
disappearance  or  metabolism  (Other)? 


.702 

EXPOSURE  REGIMEN  DATA  SCREEN:  Agent 

Enter  the  name,  or  a  brief  description  of  the  agent  described 
in  the  document  If  it  is  unknown,  you  could  use  a  description 
of  the  presumed  agents'  action  such  as  "hcpatoioxic  agent"  or 
"hemolytic  agent" 

.703 

EXPOSURE  REGIMEN  DATA  SCREEN:  Dose 

Dose  refers  to  the  quaritity  of  the  agent  administered  within  a 
given  p>eriod.  Provide  the  amount  and  the  units  of  measure. 
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With  airborne  exposures  to  gases  and  particulates,  it  is  generally 
not  possible  to  define  the  dose  administered.  Instead,  the 
characteristics  of  the  gas  or  particles,  and  the  concentration,  in 
conjunction  with  the  duration  of  exposure,  and  sometimes  the  rate 
of  breathing  and  tidal  volume,  are  used  to  define  the  exposure. 


.704 

EXPOSURE  REGIMEN  DATA  SCREEN:  Formulation 

Insert  the  numbers  from  the  options  prowided  to  the  right,  in 
the  space  provided. 

The  options  should  be  largely  self  explanatory.  "Slo_rer  is 
slow  release  formulation.  "Concent"  means  concentrate,  not 
concentration.  A  concentrate  is  a  formulation  which  is  added 
to  a  mix  which  dilutes  it  out 


EXPOSURE  REGIMe>J  DATA  SCREEN:  Route 

Select  the  route  of  administration  of  the  agent  from  the  list 
provided.  The  abbreviations  should  be  self-explanatory  with  the 
possible  exceptions  of  lA  and  Bite-St  lA  means  intra-arterial 
and  St  means  sting. 

.706 

EXPOSURE  REGIMEN  DATA  SCREEN;  Interval 

This  ai\d  the  following  field  are  designed  to  provide  the  user  with 
a  way  to  define  multiple  dosing  protocols.  If  an  agent  is  given 
every  hour,  q.  Ih  would  define  the  interval.  The  q.  is  an 
abbreviation  for  "quaque"  w.hich  is  latin  for  "every."  It  can  be 
used  with  minutes,  hours  or  days.  Everything  typed  in  the  Interval 
field  is  converted  to  upper  case,  to  a  "q"  will  be  represented  by 
"Q." 

Currentlv,  there  is  no  direct  mechanism  for  indicating  unequal 
intervals  in  the  EXPOS'URE  REGIMEN  DATA  SCREEN.  The  comment 
section  cculd  be  used  for  tliis  purpose. 


.707 

EXPOSURE  REGIMEN  DATA  SCREEN:  Duration 

This  field  is  to  be  used  for  indicating  the  length  of  time  over 
which  the  agent  was  given.  In  the  case  of  an  IV  injection  it  may 
be  five  seconds  or  50  minutes,  whereas  an  orally  administered 
compound  may  be  given  every  12  hours  for  six  months. 

There  are  no  predefined  limits  on  how  the  information  can  be 
represented.  The  goal  is  to  be  as  descriptive  as  possible. 


.708 

EXPOSURE  REGIMEN  DAT.A  SCREEN;  Administration  Method 

Indicate  the  method  of  giving  the  agent.  The  methods  are  numerous 
and  there  is  enough  space  to  include  a  brief  description.  Was  it 
adnrunistered  orally  via  a  billing  gun,  IV  via  a  Harvard  infusion  pump 
or  as  an  aerosol  by  a  Lovelace  nebulizer?  Was  it  a  syringe/ needle 
injection  or  dietary  consumption? 

.709 

EXPOSURE  REGIMEN  DATA  SCREEN:  Scheduled  Evaluation  Time? 
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When  will  blood  samples  be  taken  or  the  animal  killed  for  tissue 
collection?  There  may  not  be  room  to  define  some  multiple 
evaluation  schedules.  Abbreviations  that  aren't  criptic  help,  e.g. 
2, 4, 6, 12,  24H  &  2, 4,  7D  (the  spaces  can  be  removed  to  offer 
more  flexibility). 
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.800 

EXPOSURE  GROUP  LINK  ENTRY  SCREEN:  (Overview) 

The  EXPOSURE  GROUP  LINK  ENTRY  SCREEN  provides  a  means  of  storing 

the  association  of  design,  subject  group,  and  exposure  regimen 

with  the  subsequent  results.  This  screen  allows  the  user  to  form 

the  associations,  which  then  constitute  an  "Exposure  Group."  This 

process  creates  and  stores  a  derived  number  and  brief  descriptions 

of  the  design,  subject  group,  and  exposure  regimen  for  the 

"Exposure  Group," 


Hit  "s"  or  "return"  to  see  the  Help  for  "Qtadon  No." 

EXPOSURE  GROUP  LINK  ENTRY  SCREEN:  Qlation  No. 

Tne  "Citation  No."  can  be  filled  in  using  "return*  unless  you  are 
performing  a  search. 

.801 

EXPOSURE  GROUP  LINK  ENTRY  SCREEN:  Exposure  Group  (first  field) 
"Exposure  Group"  is  not  asking  you  to  give  a  number  or  letter 
for  an  exposure  group  per  se.  Rather,  the  first  field  is  for 
indicating  the  design  for  which  you  are  setting  up  links  The 
designs  are  listed  and  numbered  in  the  middle  of  the  rcreen. 

Use  the  number  to  the  left  of  the  sign  to  designate  the 
"Dsgn"  choice 

Entering  a  valid  design  number  (followed  by  "return")  M  ill  cause 
the  conditions  you  entered  earlier  for  that  design  to  pop  up  (in 
abbreviated  form)  next  to  "Dsgn"  in  the  upper  portion  of  the  screen. 
Also  note  that  an  abbreviated  form  of  each  subject  description  appears 
mid-screen. 

.802 

EXPOSURE  GROUP  LINK  ENTRY  SCREEN:  Exposure  Group  (second  field) 
The  cursor  is  now  at  the  second  field  where  the  number  for  the 
subject  portion  of  the  link  can  be  entered.  Select  one  of  the 
numbers  to  the  right  of  "Subj:" 

Completing  that  field  results  in  your  selection  appearing  to 
the  right  of  the  "Subj;"  heading  below.  The  choices  of  regimens 
described  previously  are  now  in  the  middle  of  the  screen,  and  the 
cursor  is  on  the  "regimen"  field. 

803 

EXP(3SURE  GROUP  LINK  ENTF.  /  SCREEN:  Exposure  Croup  (third  field) 
Select  the  correct  regimen  number  from  those  appear  to  the  left 
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of  the  sign.  Completing  this  field  causes  the  final  field 
in  the  "Exposure  Group"  row  to  show  the  abbreviations  of  the 
previous  three  fields  with  the  number  of  the  design  (D),  subject 
(S)  and  regimen  (R)  linked. 


.804 

EXPOSURE  GROUT  LINK  ENTRY  SCREEN;  ExpoGrp  (second  field) 
The  cursor  is  now  on  the  last  field  of  "ExpoGrp  <  >  of  <  >." 

This  number  should  match  the  number  of  total  exposure  groups 
for  the  design.  If  the  number  is  incorrect,  enter  the  correct 
number,  followed  by  "return." 

Hit  "return"  until  the  fields  dear  (and  the  citation  number 
is  filled  in)  and  the  cursor  is  on  the  first  field  to  the  right 
of  "Exposure  Group"  as  above. 

The  process  now  begins  again  for  the  next  subject  group  for  the 
first  design.  Repeat  the  steps  as  described  above. 

When  the  first  design  is  complete,  jmd  the  cursor  is  on  the 
first  field  to  the  right  of  "Exposure  Group,"  enter  2  for  the 
second  design  number  and  repeat  the  entry  steps  until  all 
associations  are  entered  for  each  design,  exposure  group  and 
regimen. 


.805 

BROWSE:  Delete  this  entrj'  from  database 

Select  this  option  when  you  wish  to  remove  the  Link  data. 


.806 

BROWSE:  CJuery-Again 

TKS-MAIN  ABSTRACT  KND-DATA  FIND-CITATION-DATA  BROWSE:  (^uery-Again 
If  you  would  like  to  perform  another  search  this  option  will  allow 
immediate  access  to  the  screen  for  entry  of  another  search 
parameter  without  having  to  exit  out  all  the  way  back  to  the 
"Find"  option  in  the  ABSTRACT  menu. 

You  may  perform  a  search  using  any  single  entry,  or  several  fields 
of  interest,  which  will  narrow  down  the  potential  matches.  In 
addition,  wild  :ards  (•)  can  be  used  to  help  compensate  for  some 
differences  in  terminology. 
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.900 

TKS-MAIN  VOCABULARY  JOURNAL-VCXTABULARY:  Add 
Selecting  "Add,"  puts  the  cursor  on  the  "Journal  Name"  field  of 
the  JOURN.ADD  DATA  SCREEN.  Type  in  the  journal  name  as  given  in 
the  Nation  .1  Library  of  Medicine  List  of  Journals  Index.  Hit 
"return"  until  the  "Journal  Abbreviation"  field  is  reached  and 
enter  the  appropriate  abbreviation  as  giver,  by  that  Index.  Hit 
"Esc"  and  the  journal  is  assigned  a  Journal  Code  Number.  The 
numbers  are  unique  to  each  journal,  and  assigned  sequentially. 


.901 
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TKS-MAIN  VOCABULARY  JOURNAL-VOCABULARY:  Find 
Selecting  "Find",  puts  the  cursor  in  the  "Journal  Code"  field  of 
the  JOURNADD  DATA  SCREEN.  More  commonly  you  will  need  to  use  the 
"Journal  Name"  field,  so  hit  "return"  to  place  the  cursor  there 
and  tj'pe  in  the  EXACT  name  of  the  journal  (see  below).  Hit  "Esc," 
in  order  to  find  its  journal  code. 

If  you  typed  the  name  correctly  and  it  is  already  in  the  system, 
the  remaining  information  for  that  entry  is  now  provided  on  screen. 

If  there  is  no  match,  check  your  spelling  and  title.  If  they  are 
correct,  and  there  is  no  match,  you  will  have  to  enter  it  as  a  new 
journal  via  the  "Add"  feature.  Go  back  to  the  JOURNAL-VCXIABULARY 
screen  and  follow  the  "Add"  psath. 

You  do  not  have  to  type  in  the  whole  name  of  the  journal,  you 
can  use  the  first  few  letters  of  the  first  word  or  the  first 
word  or  two  and  a  "wild  card"  symbol  (•).  For  example,  typse 
in  "American*"  and  hit  "Esc."  The  message  at  the  bottom  left 
corner  of  the  screen  tells  you  how  many  matches  were  found. 

Increasing  the  length  of  the  search  pattern  will  decrease  the 
number  of  matches  you  obtain. 

You  can  now  "cycle"  through  the  matches  by  using  the  first  four 
options  indicated  in  the  BROWSE  menu  near  the  top  of  the  screen. 


.903 

TKS-MAIN  VOCABULARY  KEYUWORD.LISTING:  Add 

The  ADDKEYS  DATA  SCREEN  provides  a  mechanism  for  adding  keywords 
to  the  system  list  of  keywords,  and  assigning  them  a  kcycode. 


.904 

TKS-MA.'N  VOCABLXARY  KEYWORD.USTING;  Find 

This  option  provides  a  mechanism  for  locating  keywcics  and  their 
a:,.>odated  keycodes. 

.906 

TKS-MAIN  VeXABULARY  BOOK-VOCABULARY:  Add 

Selecting  "Find,"  puls  the  cursor  in  the  "Book  Code"  field  of 
BOOKADD  DATA  SCREEN.  Fill  in  the  title  and  other  fields  and  hit 
"Esc."  The  book  is  assigned  an  "Aquisition"  and  Code"  number  and 
is  entered  into  the  system. 


.907 

TKS-MAIN  VOCABULARY  BOOK-VOCABULARY:  Find 

Selecting  "Find,"  puts  the  cursor  in  the  "Book  Code"  field  of  the 
BOOKFIND  DATA  SCREEN.  More  commmonly  you  will  need  to  use  the 
"Book  Title"  field,  so  hit  "return"  to  place  the  cursor  there  and 
typje  in  the  EXACT  title  (see  below).  Hit  "Esc,"  in  order  to 
perform  the  search.  You  can,  of  course,  use  any  or  all  of  the 
other  deserptive  fields  in  the  search  process  if  you  wish. 

If  you  typied  the  title  correctly  and  it  is  already  in  the  system, 
the  remaining  information  for  that  entry  is  now  provided  on  screen. 

If  there  is  no  match,  check  your  spelling  and  title.  If  they  are 
correct,  and  there  is  no  match,  you  will  have  to  enter  it  as  a  new 
book  via  the  "Add"  feature.  Co  back  to  the  BOOK-VCXTABULARY  menu 
and  follow  the  "Add"  path. 
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.908 

BROWSE:  Delete  (Journal) 

Selecting  this  option  will  enable  you  to  delete  the  current 
on-screen  journal  from  the  rr^s.er  system  list.  Once  selected, 
there  is  one  more  query  to  wh4ch  you  must  respond  before  the 
joumai  is  deleted  from  the  list. 

BROW'SE  Delete  -  Are  you  sure  you  want  to  delete  this  Joumai?  (y/ n) 
Typing  a  “y*  will  delete  the  'ndicated  joumai  from  the  master 
system  list.  Typing  "n”  will  return  you  to  the  BROWSE  menu. 


.909 

BROWSE:  Delete  (Book) 

Selecting  th>s  opoon  will  enable  you  to  delete  the  current 
on-screen  book  trom  the  mastes-  sy-«iem  list.  Once  selected, 
there  is  one  more  query  to  wKch  y  ou  must  respond  before  tlie 
book  is  deleted  from  :he  list 


.910 

BROWSE:  Delete  (Keyword) 

Selecting  this  option  will  enable  you  to  delete  the  current 
on-screen  keyword  from  the  master  s/stem  list.  Onv;e  selected, 
there  is  one  more  query  to  which  y  >u  must  respond  before  the 
keyword  is  deleted  from  the  list 
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911 

SiCN-VtXASULARY  Add 

You  can  add  new  signs  to  tt»c  vocabulary  list  by  selecting  "A  dd. 
TTus  function  •«  not  yet  unplefnented. 


912 

SICN-VOCABLXARY  Find 

This  function  is  not  yet  implemented. 


913 

SIGN- VOCABULARY  Site 

This  function  is  not  yet  implemented. 

914 

SICN.1.0CABLLARY  Rest 

This  function  it  not  yet  implemented. 


915 

BROWSE  Delete 
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.  1  iX- 1 

CLINIC.  iL.  FIN-.  iNGS;  OneSign->ManyGroups 


LX2 

^L  INICAL-FTNDINCS.  V1an\-Signs,-One-Crcup 
BROWSE;  Delete 


'\\S£;  Q’ier> -Again 

:  VtATsI  ABSTRACT  FLND-DATA  FIKD-aTATION-DATA  BROWSE;  Query- Again 

.10G5 

ECFTCTS  SEARCH-ALL;  FirstWord 

.IC'36 

EFFECTS  SEARCH-ALL;  Any  Word 
.1007 

EFFECTS;  AJ 
1C08 

EFFFCT5:  Viorph 

1009 

EFFECTS;  Funct 

1010 

EFTECIS;  Disease 
i  0 1 1 

Ei  riCTS;  rVocd 
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noo 

BROWSE  Delete 
1101 

BkOw  SE.  Dete»e 


■1  tk-smonogrphl  4gl  HELP  message* 

1200 

SELECT  RLE-BY  Authof-Name 


Toi^in  Knowledge  Systeii;  Source  Cod| 


SELECT-FILE-BY:  CiUtion-Number 
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.1300 

BROWSE:  Output 
.1301 

OUTPUT:  Printer 
.1302 

OUTPUT  OLT-TO-PRINTER:  This-Gtation 
.1303 

OUTPUT  OUT-TO-PRESTTER:  AU-Otations 
.1304 

OUTPUT:  File 
.1305 

OUTPUT  OUT-TO-FILE:  This  Gution 
.1306 

OUTPUT  OUT-TO-FILE  RLE-SELECTION:  New  File 
.1307 

OUTPUT  OUT-TO-FTLE  RLE-SELECTION:  Append-To.File 
.1308 

OUTPUT OUT-TO-nUE.;  AilGititions 
1309 

OUTPUT  OUT-TO-FTLE  RLE-SELECnON:  New-File 
.1310 

OUTPUT  OUT-TOHLE  nLE-SELECTlON:  Appcnd-To-Rle 


-I  tkashows.4gl  HELi*  messages 


.1400 

CU-RRENT-CrrATIONi  Nwt 
.1401 

CURRENT-CITATIONS:  Previous 

1402 

CURRENTCITAnON'S.  Select 

1403 

CURRENTCITATlONj.  t  leCurrcnt 

1404 

CU-RRENT-OTAnONS  Next 
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.1405 

CURRHnT  CITATIONS:  Previous 


.1406 

CLIENT-CITATIONS:  Select 
.1407 

^LTIRENT-CITATIONS:  Use-Current 
.1408 

CLTIRENT  PAPER:  EXIT 


-1  Rich's  PLAYGROUND 


-.0000 

Clinical  "Findings"  is  another  citation  component 
which  can  be  "searched"  from  the  Browse  mtnu  in  the 
Find-  pathway.  One  can  search  for  certain  clinical 
hndings  or  search  for  a  citation  and  obtain  the 
clinical  findings  associated  with  it. 

Design 

Subjects 

Regimens 

LinLs 

Delete 

Findings 

The  process  of  finding  ih.-se  pai  ticuiar  portions  of  the 
abstract  is  similar  to  that  described  above  for  Paper 
Overview.  One  should  be  aware  that  you  will  frequently 
encounter  multiple  matches  for  such  things  as  Subjects, 
Regimens  and  LirUc*  since  many  experimental  studies  have 
several  of  those  components.  You  can  switch  back  end 
forth  between  those  multiple  screens  by  using  the  up 
and  down  arrow  keys.  Note  that  multiple  matches  may 
include  components  from  several  citations,  cspeaally 
if  wild  cards  (*)  arc  used.  Cneck  the  Ciution  No.  as 
the  screens  change  in  order  to  be  aware  of  where  you 
arc. 

Some  screens  requite  that  you  re-enter  data  for 
certain  fields  in  order  to  cycle  through  the  enbre 
screen  Query-Again  is  an  option  in  the  Browse  menu 
for  Desaga  Deleting  a  design  gives  you  the  option 
to  delete  only  tise  design  on  Kreen,  or  the  design 
screen  and  ail  of  the  screens  from  that  point  forward 
(Subiects,  Regimens.  Links,  etc.).  The  same  is  true  of 
"Delete"  and  the  other  aiation  comportents;  you  can 
tiiher  delete  the  dau  on  that  screen  alone,  or  that  screen 
and  all  screens  linked  to  it  in  the  fors^ard  direction. 
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-.1001 

Subject 

The  subject  screen  comes  up  with  the  cursor  on  the 
"citation  No"  field.  Hit  "return"  which  fills  in  that 
field  automatically  and  moves  the  cursor  to  the  next 
one.  The  designation  for  the  first  group  (they  are 
assigned  sequential  letters)  comes  up  automatically. 

If  you  would  like  to  enter  subject  data  for  some 
other  group  enter  its  letter  designation  followed  by 
"return." 

Note  that  the  next  two  fields  are  bracketed  differently  than 
the  others.  You  cannot  change  those  entries  in  this  screen 
because  they  were  derived  fiom  the  design  screen. 
Therefore,  a  return  after  "Group"  brings  the  cursor 
to  the  "Spedes"  field  where  the  common  name  of  the 
animal  used  can  be  entered.  "P£tum"s  move  you  through 
the  screen.  "Source"  is  meant  to  be  used  to  identify 
where  tfie  animals  came  from.  "Number"  refers  to 
the  number  of  animals  in  the  group. 


This  goes  with  the  "New  Qtation"  path  helps. 

Add-Design 

A  "Return"  causes  the  screen  to  come  up  with  the 
Citation  Number  (No)  and  File  Number  sections  filled  in. 

Type  "returr."  until  the  first  empty  field  is 
reached  and  then  begin  filling  in  the  appropriate 
responses.  The  possible  options  are  Hst^  as  she 
cursor  moves  to  each  new  field.  When  ail  the  data 
for  that  screen  has  been  entered,  hit  "Esc"  and  the 
next  design  screen  will  conte  up  as  indicated  by 
the  different  "Design  No."  If  the  "citation  Numb" 

(No)  is  not  present,  hit  "return"  and  it  will  appear, 
option  I 

When  all  the  design  screens  have  been  completed,  hit 
"Esc"  followed  by  "E"  until  you  reach  the  menu  with 
the  "Add"  option.  Select  "Add",  and  then  the  "Subject" 
option  from  the  "FIND-CONTENT"  menu. 

option  II 

1/  the  subsequent  Subject  sections  have  not  been  completed, 
the  program  wUI  bring  you  to  that  section  to  provide  the 
necessary  infornruHon.  The  entry  process  is  similar  to  that 
described  above  under  the  appropriate  screen  heading. 


.-1  ...This  section  must  be  moved  to  the  tksauth.4gl  module. 
Last  name,  first  author 

Enter  the  author  information  (lower  case  letters  are 
accrpuble),  then  hit  the  "return"  key. 


.-1  We  need  to  move  the  following  section. 
SELECrr-nLE-BY 
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From  here,  one  can  search  for  a  specific  citation  by 
responding  to  sequential  screens  which  request  the  Author, 
the  journal  volume  number,  the  first  page  number,  and  last 
two  digits  of  the  year.  Alternatively,  one  can  give  the 
Citation  No.  which  consists  of  the  source  code  of  the  purnal 
or  book,  the  volume  number,  first  page  number,  and  the  year. 

Note  that  for  the  lafier,  each  component  must  consist  of  a 
certain  number  of  characters,  for  example,  JOOOOl -0001 -00001 -1988. 
xxxxxxxxxxxx 

Completion  of  the  process  will  result  in  finding  the  desired 
citation,  or  a  nwssage  that  the  dtatiop  doesn't  exist  in 
the  database.  If  a  citation  isn't  in  the  system,  you  can't 
add  anything  to  it.  Enter  a  new  citation  by  starting  from 
'?v’ew''  in  the  "ABSTRACT"  saeen. 

.-1  The  following  needs  to  be  moved  so  it  is  available 
when  the  Browse  menu  is  on  screen. 

Browse 

Using  the  'Browse"  options,  one  can  choose  to:  view  the  next 
citation  if  more  tnan  one  match  is  found  in  a  search;  see  the 
previous  citation  if  the  "Next"  or  "Last"  options  were  used; 
go  to  the  "La.st"  citation  in  the  list  of  mon  than  one  match 
(the  rrutches  are  arranged  chronologically  in  the  order  in  which 
they  were  entered  into  the  system);  "Update":  (modify  or  change) 
and  entry;  "EJelete"  the  entry  shown  on-screen  (with  the  option  of 
deleting  other  portions  of  the  data,  e.g.  Paper  Overview, 

Design,  etc.);  ‘  Query-Again"  which  clears  the  data 
fields  and  allows  orte  to  search  for  arwther  citation; 
or  "Exit"  irom  the  program, 
xxxxxxxxxxx 

Not  all  of  the  options  are  evident  at  one  time.  To  see  the  others, 
use  the  right  arid  left  (horizootal)  arrow  keys  to  move  among  the 
selections  and  see  those  on  th,e  right  after  the  " — "  notation. 

When  the  first  option  is  highlighted  (Next)  you  can  use  the 
left  arrow  key  to  see  the  eiKl  of  the  option  list  (horizontal  wrap 
arouni  for  the  Browse  of  ..on  list). 

.-!.... The  following  section  reeds  to  be  moved  to  PaperOvcrview — 

.7 

PaperOverview 

When  this  option  is  selected  epiica  of  the  Overview 
screen  comes  up  with  the  <  ..sor  on  the  Ciution  No 
field  and  a  statement  "Enter  search  criteria 
and  hit  ESC  to  search."  One  can  search  via  any  of  the 
fields  represented  on  the  screen,  but  the  Citation  No 
and  File  fields  will  be  most  comrroniy  used. 


Update 

Selecting  "Update"  places  the  oifsor  on  the  Source 
field.  You  can  cyde  through  the  data  fields  by  using 
the  "return"  key  which  functions  in  only  one  direction, 
or  the  left  and  right  arrow  keys.  Change  the 
appropriate  field  and  hit  'Es^  when  you  are  finished. 
Wait  for  the  cursor  to  return  to  a  data  field  or  menu.  This 
procedure  wntes  the  updated  informatiun  to  memory. 
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■ 

3 

■ 


.-1 


VOCABULARY-Keywords 

"Selection  of  this  option  brings  up  the  "KEYWORD_LISTING" 
screen  from  which  one  can  add  new  keywords  and  keycodes,  or 
find  existing  ones.  Once  found,  they  can  be  modified. 


xxxxxxxxx 


.-1 

VOCABULARY-Signs 

This  option  is  used  to  add  clinical  signs  to  the  Sign  Vocabulary 
list,  find  a  sign  which  is  already  in  the  system  (after  which 
it  can  be  modified),  obtain  site  information  (system  programmer 
use),  and  access  the  SNOMED  listings, 
xxxxxxxxxx 


24 

Update 

Selecting  "Update"  places  the  cursor  on  the  Source 
field.  You  can  cycle  through  the  data  fields  by  using 
the  "rehim"  key  which  functions  in  only  one  direction, 
or  the  left  and  right  arrow  keys.  Ohange  the 
appropriate  field  and  hit  "Esc"  when  you  are  finished. 

Wait  for  the  cursor  to  return  to  a  data  field  or  menu.  This 
procedure  writes  the  updated  information  to  memory. 

1 

.123 

Citation-Rle  No. 

Typing  "return"  again,  fills  in  the  "File  No"  field 
automatically.  It  consists  of  the  first  four  letters  of 
the  first  author's  last  name,  the  journal  or  chapter  number, 
the  beginning  page  number  and  last  two  digits  of  the  year. 

This  number  may  also  be  used  to  find  the  file  after  it  is 
entered  into  the  systera  It  docs  not  consist  of  extra  characters 
or  spaces.  There  are  periods  separating  portions  of  the  entry 
(e.g.  SMIT.10.23.1988). 
xxxxxx 

Hit  "return"  again.  If  the  citation  you  are  attempting  to  enter 
is  already  in  the  system,  you  will  receive  notification 
of  that  fact.  You  may  make  changes  in  a  file  that  is 
already  in  the  system,  but  not  from  the  "New"  citation 
pathway.  "Exir  back  to  the  "ABSTRACT"  window  and  begin 
the  entry  process  again  for  a  new  article, 
xxxxxxxx 

If  the  citation  is  not  in  the  system,  hit  "return"  to  move  to  the 
title  entry  field, 
xxxxxxx 

. Below  is  indeed  a  copy  of  part  of  .123  which  should 

be  available  after  the  message  indicating  that  'information  for  that 

citation  has  already  been  entered"  pof>8  up...I  think  it  goes  with 

the  tksshows.4gl  file  about  line  483  b^ause  the  next  place  where 

help  would  be  useable  is  the  Current-Citations  (all  caps)  screen. 

xxxxxxx 

tksshowi4gl 

.124 

Duplicate  citation 

Hit  "return"  again.  If  the  dtation  you  arc  attempting  to  enter 
is  already  in  the  system,  you  will  receive  notification 
of  that  fact  You  may  :nake  changes  in  a  file  that  is 
already  m  the  system,  but  not  from  the  "New"  citation _ 
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pathway.  Exit  b^ck  to  the  "ABSTRACT"  window  and  begin  the 
entiy  process  again  for  a  new  article. 


xxxxxxx 

.-1  The  following  goes  with  the  Find  path,  to  the  citation  and 
update.  It  z3  a  "browse"  path  (update)  but  the  author  list  porhon 
is  in  tksauth.4gl,  hence  the  .201  number, 
xxxxxxxxx 
.201 

Find-Update 

The  "Author"  screen  comes  up  next.  Hit  "Esc"  as  indicated  at  the 
bottom  of  the  screen.  The  program  will  ask  if  you  want  to  update 
the  author  list  If  you  select  "n"  fhe  kejnvord  list  comes  up. 

Selecting  "y"  places  the  cursor  on  the  first  data  field, 
xxxxxxxx 

Change  it  if  necessary,  or  use  the  arrow  or  return  keys  to  cycle 
through  the  fields.  Modify  the  entries  or  type  in  ttew  authors, 
and  then  hit  "Est"  The  file  is  updated  aiKl  the  Keycode/ keyword 
screen  comes  up. 
xxxxxxxxx 

.203  This  should  probably  be  done  away  with._d'll  wait  to  be 
sure. 

Authors 

The  author  screen  can  be  updated  directly  as  w:.ll  as 
indirectly  as  just  described  above.  Selecting  Author 
from  the  FIND-CITATION-DATA  screen  brings  up  the  author 
screen  with  the  mrsor  on  the  citation  number  field. 

Enter  the  ataiion  number  and  then  "Esc."  The  screen 
comes  up  with  a  rrtessage  in  the  lo'.  'er  left  comer 
indictating  how  many  match.es  were  found  and  asks  you  to 
"Esc"  to  contmue.  A  Browse  menu  appears  with  options 
similar  to  those  described  above  under  "citation." 

xxxxxxxx 

.-1  This  following  paragraph  is  meant  to  come  up  when  foillowing 
the  New  dtatiun-path.  after  the  title  and  authors,  one  is  asked 
to  insert  keywords.  Then,  300  should  be  available. 

The  "Find"  option  helps  you  search  for  particular  keywords  that 
are  in  the  list,  and  identifies  their  associated  keycode. 
xxxxxxx 

Type  "P  and  the  cursor  is  placed  on  the  first  field  (keycode). 

Hit  "return"  and  the  cursor  goes  lo  the  next  field.  Type  in  the 
word  "mouse*  and  hit  "Esc."  The  program  searches  for  that  keyword 
and,  if  it  is  found,  fills  in  the  keycode  numb.!r.  One  can  complete 
those  two  fields  for  the  paper  being  abstracted  by  hitting  "Esc" 
once  again.  From  there  the  process  starts  over  ag.nin  for  the  next 
keyword.  If  a  keyword  is  searched  for  but  not  found,  tfic  program 
returns  the  message  that  "There  is  no  keyword  matching  the  first 
three  letters"  and  returns  you  to  the  original  screen, 
xxxxxxxx 

.XXX 

The  "keyword"  screen  appears  next,  and  the  same  process 
occurs  again.  Refer  to  the  section  on  keywords  for 
information  on  this  screea  When  you  are  finished 
modifying  this  screen  hit  "Esc."  TWs  completes  the 
process  of  "Update"  for  citations.  You  are  returned  to _ 
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.302 


xxxxxxxxx 


xxxxxxxx 


aamij 


iilsS 


urce  uoa 


ttje  citation  screen  with  the  Browse  menu.  Hit  "e"  to 
exit  from  this  environment  and  return  to  the 
FIND-QTATION-DATA  screen. 


The  "Add"  option  allows  the  freedom  to  place  new 
keyw  jrds  and  their  accompanying  codes  into  the  list. 

If  you  do  not  wish  to  enter  keywords  at  this  time,  hit 
the  "delete"  key.  If  you  follow  this  later  path,  the  screen 
indicates  that  it  is  preparing  citation  "information." 

The  neM  screen  is  titled  "current  pjaper"  and  has  only 

one  option,  "Exit."  That  is  because  you  are  finished 

with  the  first  part  of  the  system  and  must  begir. 

a  new  phase  of  data  entry  for  the 

citation.  Hit  "E"  or  "return"  to  go  oa  You  are  then 

asked  if  you  would  like  to  "add  content  data  for  the 

paper?". 

If  you  type  "n"  then  "return",  the  system  goes 
baidi  to  the  "Abstract"  screen.  Typing  "y"  followed  by 
"return"  results  in  a  new  screen  which  begfns  the  paper 
overview  process. 


.404 

Enter  the  Ctation  No  for  the  paper  you  wish  to  find 
artd  then  "Esc."  The  program  will  search  and  then  tell 
you  how  nuny  matc)^  were  feund  and  a  Browse  menu  will 
appear.  The  Browse  options  are  explained  under 
Find-Gtation,  above.  There  is  no  Query-Again  option, 
but  there  <s  an  Add*Data  option  which  allows  one  to  add 
a  component  (Desi.',n,  Subject  gioup  eic.)  if  none  is 
found  during  a  search.  If  no  match  is  found,  you  will 
still  get  a  Browse  menu,  and  can  try  again  by  exiting 
from  the  screen  ("e")  and  resclecting  Paper  Overview, 
ot  return  to  try  another  path  or  option. 

Old  help  .64 

Authors  may  be  added  to  the  list  generated  when  the  diation  was 
first  entered  into  the  system.  Select  "Authors"  and  respond  to 
the  prompts. 


Old -  tksauiK4gl  HELP  MESSAGES 


A 

TKS-MAIN  ABSTRACT  SEUCT-RLE-BY  ADD-0.*Th  ADDCITATION-DATA;  Authors 
As  the  menus  suggest,  one  can  add  authors  to  a  partially 
completed  list  or  add  authors  to  a  dtation  that  lacks  that 
feature. 

If  there  are  authors  already  listed  for  the  dution,  you  can  move 
through  them  with  the  cursor  keys.  You  cantvot  change  anything  or 
add  names  unul  the  "Esc"  key  Is  used. 


After  hitting  "Esc"  the  message  at  the  bottom  of  the  screen 
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changes  and  the  cursor  field  is  in  reverse  video  (dependant  on 
your  ternunal  type).  You  can  now  n«ke  changes  in  the  fields 
already  entered  or  add  names  lO  the  list  Remember,  the  program 
will  correctly  number  the  authors  if  you  enter  them  in  sequence. 


When  you  are  fmished  with  the  changes/additions,  hit  "Esc"  to 
place  them  in  the  system  memory. 


B 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-CITATION-DATA;  Authors 
This  screen  comes  up  with  the  cursor  on  the  Citation  No.  You 
have  indicated  that  you  would  like  to  firul  an  author  so  you 
probably  don't  want  to  institute  the  search  process  based  on  that 
number.  Move  through  the  fields  using  the  "rehim"  or  cursor 
keys  unh,  the  cursor  is  in  the  first  author  field.  Type  in  the 
name  of  the  author  (including  initials.')  whose  citations  you 
wish  to  locate,  and  hit  "Esc"  to  initiate  the  search  process. 

You  can  search  for  all  "Smith's"  regardless  of  their 
initials,  by  using  the  wild  card  (*),  e  g.,  "SfdTTH*." 

It  may  be  preferable  tc  use  the  wild  card  in  place  of  both 
initials  because  some  journal  articles  may  rxit  provide  the  i.ames 
with  both  initials.  Some  people  may  not  choose  to  enter  both 
initials.  Some  pieople  may  ignore  the  plea  to  NOT  place  spaces 
between  the  initials,  whi^  means  an  exact  match  would  reed  to 
have  both  initials  matched  as  well  as  the  spacing! 

P  search  using  the  first  initial  and  a  wild  card  will  pick  up 
all  the  single  and  double  initials,  regardless  of  the 
spacing.  H’'wever,  be  aware  that  you  must  pay  attention  to  the 
initials  in  order  to  weed  out  any  matches  that  aren't  exactly  the 
author  of  interest. 

If  a  match  is  found,  a  BROWSE  screen  appears  which  provides 
you  with  several  options. 


.-2000 

CITATION  DATA  SCREEN:  New-Source  -  Not  a  Journal  or  Book! 

This  message  com.  -only  occurs  when  the  "J"  or  "B"  prefix  has  not 
been  used. 


.-11000 

CITATION  DATA  SCREEN:  Year  -  Not  a  valid  year! 

You  need  to  type  in  all  four  digits  of  the  year  or  correct  a 
typing  error. 


Old  tksauth  help  messages 
C  u»  help  .170 
EkOWSE:  Next  (Author) 

The  BROWSE  menu  appears  as  a  result  of  a  search  process.  It 
provides  mechanisms  for  moving  between  components  when  more  than 
one  is  found  (Next,  Previous,  First  and  Last)  a  method  for 
changing  entries  (Update),  removing  components  (Delete), 
performing  another  search  process  ((Jucry-Again)  and  exiting  from 
the  enOWSE  menu  (Exit). 


292 


.D  use  help  .171 
BROWSE:  Update  (Authors) 

The  "Update"  option  provides  a  means  for  changing  any  author 
component  in  a  window  and,  hence,  the  database  entry.  This  is 
necessary  when  a  component  has  been  incorrectly  or  incompletely 
entered. 

"Update"  allows  you  to  add  or  delete  authors.  To  add  authors  to 
the  end  of  a  list,  scroll  through  it  using  the  down  arrow  key 
until  an  empty  author  field  is  reached.  Then,  type  in  the  name 
of  the  author  followed  by  an  "Esc" 

If  an  author  needs  to  be  placed  in  the  middle  of  a  list,  place 
the  cursor  on  the  line  below  where  you  would  like  the  name  added 
and  hit  the  "FI"  key.  A  new  line  will  be  opened  and  you  can  type 
in  the  name  followed  by  an  "Esc,"  which  will  write  it  to  memory 
and  change  the  numbering  sequence. 

To  delete  authors  you  must  place  the  cursor  on  the  line  you  would 
like  to  delete  and  hit  the  "F2*  key.  The  line  will  be  deleted, 
and  after  an  "Esc,"  the  numbering  sequence  will  be  corrected. 


BROWSE;  (Juery-Again 

If  a  search  is  uiteventful,  or  if  one  would  like  to  perform  another 
one,  this  option  will  allow  immediate  access  to  Ae  screen  for 
entry  of  another  number. 

Old  tkskey  helps 
C  use.  170  as  help 
BROWSE:  Next  (Keyword) 

The  BROWSE  menu  appears  as  a  result  of  a  search  process.  It 
provides  mechanisms  for  moving  between  components  when  more  than 
one  is  found  (Next,  Previous,  First  and  Last)  a  method  for 
changing  entries  (Update),  removir.g  components  (Delete), 
performing  another  search  process  (Query- Again)  and  exiting  from 
the  BROWSE  menu  (Exit). 

.0  use  .171  as  help 
BROWSE;  Update  (Keyword) 

The  "Update"  option  provides  a  meant  for  adding,  modifying  or 
deleting  keywo^t.  When  it  is  chosen,  the  cursor  goes  to  the 
"Otation"  field.  Use  the  arrow  or  "return*  keys  to  place  the 
cursor  on  the  desired  keycode  lirte. 

To  add  keywords  to  the  end  of  a  list,  scroll  through  it  using 
the  down  arrow  key  until  an  empty  keycode  field  is  rcach^. 

Then,  type  in  the  keycode  followed  by  an  "Esc." 

If  a  keyword  needs  to  be  placed  in  the  middle  of  a  list,  place 
the  cursor  on  the  line  below  where  you  would  like  the  new  keycode 
added  and  hat  the  "FI"  key.  A  new  line  will  be  opened  and  you  can 
type  in  the  keycode.  Follow  this  with  a  "return,"  which  will  write  in 
the  keyword.  An  "Esc"  will  write  the  new  pair  to  memory. 


To  delete  keywords  you  must  place  the  ciorsor  on  the  line  you  would 
like  to  delete  and  hit  the  "FI"  key.  The  line  will  be  deleted, 
and  after  an  "Esc,"  the  change  will  be  written  to  memory. 

■F  use  .176  as  help 
BROWSE:  Query-Again 

If  a  search  is  uneventful,  or  if  one  would  like  to  perform  another 
one,  this  option  will  allow  immediate  access  to  the  screen  for 
entry  of  another  number. 


.-177 

TKS-MAIN  ABSTRACT  FIND-DATA  FIND-aTATION-DATA  BROWSE:  Update-Authors/Keyworos 
Author  and  keyword  data  aie  closely  associated  with  the  citation 
information  and  the  system  provides  an  opportunity  to  modify  those 
sections  right  after  the  citation  update. 


.-178 

TKS-f-lAlN  ABSTRACT  FIND-DATA  FIND-CITA HON-DATA  BROWSE:  Delete-this  entry 
This  question  is  a  safe-guard  against  accidentally  removing 
something  that  someone  took  the  time  to  enter,  and  which  you  now 
want  to  remove. 

Note  that  you  will  orJy  remove  one  entry  (the  data  on  the  screen), 
not  all  the  data  linked  to  the  citaMon. 


.1000 

CITATION  DATA  SCREEN;  J-Source  •  Not  currently  in  vocabulary 
Tius  message  indicates  that  the  particular  lOURNAI.  source  code 
which  wii  entered  does  not  exist  in  the  system  library  of  codes  arid 
journals.  Did  you  remember  lo  use  the  "J"  prefi.x7 

If  a  particular  journal  is  not  included  in  the  system  journal 
list,  it  can  be  added  by  using  the  option  "Add"  in  tlw  J-List 
menu.  J-List  is  accessed  by  using  the  F5  key. 

-2200 

CITATION  DATA  SCREEN:  B- Source  -  Not  currently  in  vocabulary 
This  messagi  indicates  that  the  particular  BOOK  source  code  which 
was  entered  does  not  exist  in  the  system  library  of  codes  and  books. 
This  IS  likely  to  be  a  frequent  occurrence,  as  compared  to  the 
frequency  with  which  it  is  likely  to  occur  with  journals. 

A  book  can  be  added  to  the  system  data  by  accessing  the  B-LisI 
menu  using  the  F6  key.  From  tlierc  on*  uses  the  "Add"  option. 


V 

CITATION  DATA  SCREEN  "Source"  J-UST:  Citation  information 
already  entered 

When  this  mesMge  appears  you  can  follow  the  "Find"  path  (accessed  via 
selecting  AbstractMgt  from  the  TKS-MAIN  menu)  to  see  what  has 
been  entered  for  that  ci  tation. 


Author 
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When  a  citation  is  new,  the  Author  screen  comes  up  next  Enter 
the  last  name,  a  space  and  initials  (no  space  between  initials) 
of  the  first  author  as  requested  in  the  note  on  the  bottom  of 
the  screen.  Hit  "return"  and  the  cursor  moves  to  the  "sequence" 
area  where  you  can  enter  the  position  of  the  author  in  the 
sequence  of  names  on  the  publication  The  program  v.  ill  enter 
the  numbers  (hit  "return")  if  you  enter  the  names  in  the  proper 
order.  You  can  add  up  to  six  names  to  the  author  list 
xxxxxxx 

When  you  are  fiiushed,  hit  "Esc"  once  again.  This  writes  to 
memory  the  author  list  and  the  keyword  saeen  pops  up. 


No  QTATION  entered  with  this  number 

The  search  process  has  resulted  in  the  finding  that  there  is  no 
citation  Altered  with  the  number  you  used  for  the  search.  (3ieck 
the  number  you  entered,  or  go  to  "New"  in  the  AbstractMgt  menu  to 
enter  the  citation. 

■H 

Author  data  already  exists  for  this  number 

You  cannot  add  an  author  screen  if  there  is  already  author  data 
entered  for  a  citation.  If  you  wish  to  add  an  author  follow  the 
"Add"  or  "Find"  paths  utilizing  the  "Update"  function  in  the  BROWSE 
menu. 
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TKS  Screens 


#tkscit.per 

database  tkstest 
screen 

CITATION  DATA  SCREEN 

Citation  No:[f000  ]  File  No:[f002 

Source: [fOOl  ]  File  Loc.:[f003  ]  Entry  Date;[fdte  ] 

Volume/Chap :  [f004]  Pages:  [fOOSa] - (fOOSb)  Year:  :f006] 


Title: 

[f007  ] 

[f008  ] 

tf009  ] 

[fOlO  } 

Journal/Book  Title: 

[bO  ] 


Authors  [a  ]  Keywords  [k.  )  . 

PaperOver  [p  J  Designs  [d  ]  Subjects  [s  ]  ExpoRegm  [e  ]  Signs [£  ] 

) 

end 

tables 

citation 

attributes 

£001  “  citat ion . citsourcs/  reverse,  autonext,  upshift; 

£003  ■  citation. citlccata,  upshift,  reverse,  autonext,  coirsnents* 

"S  -  Swanson,  L  -  Lainbert,  B  -  Beasley,  ?  -  Poison  Ctr"; 
fdte  -  citation. entrydate,  noupdate,  reverse,  default  ■  today; 
f004  “  citation . citvoi,  reverse,  autonext, tatofill, right,  upshift; 
fOOSa  «  citar,  Ion  .  citpage  ( 1,  5 } ,  reverse,  right ,  autonext,  upshift; 
fOOSb*  foriT,only .cp2,  tight,  reverse,  autonext,  upshift; 

£006  ••  citat ion . cltdate,  reverse,  autonext,  upshift; 

£000  ■  citation . citniunt ,  .pshift , reverse, autonext ; 

f002  citat  ion .  citfi  le,  upshift,  reverse,  queryclear,  noentry 

tool  -  citat ion . citt it le ( 1, ^3] ,  reverse,  upshift,  autonext; 

£008  -  formonly.ct2,  revorse,  upshift,  autonext; 

£P09  ■  formonly . ct3,  reverse,  upshift,  autonext; 
fOlO  "  fotwonly .  ct4,  reverse,  upshift,  autonext; 
bO  «  formonly . tropname,  noentry,  noupdate; 

a  ■  fotJsonly.  authors,  noentry,  noupdate; 
k.  -  formonly .  keywords,  r.oer.try,  noupdate; 
p  ■  formonly . paperover,  nsentry,  noupuate. 
d  •  formonly .designs,  noentry,  noupdate; 
s  •  '■'rmcnly  subjects,  noentry,  noupdate, 
e  "  formonly . exposures,  noentry,  ncupfate; 
f  -  formonly . signs,  noentry,  noupJate; 
end 
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#jllst.per 

database  tkstest 
screen 


JOURNAfc 
[fOOl 
[fOOl 
[fOOl  , 
[fOOl 
[fOOl 
[fOOl 
[fOOl 
[fOOl 
[£001 
[fOOl 
[fOOl 
[fOOl  ” 
[fOOl 
[fOOl  v 
ifOOl 
) 

end 

tables  ^ 
journlst; 


SOURCE  LIST 


attribi^es 

£001  -  fournlst. jabrv,  upshift; 
£002  -<*9t3urnlst.  jcode,  upshift- 


Instructions 
screen  record 
and 


j_listing ( 15 j  (jabrv,  jcode) 


]  [£002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  [f002 
]  :f002 
]  [£002 
1 [£002 
] [f002 


] 

] 

] 

] 

] 

] 

] 

3 

3 

3 

3 

3 

3 

3 

3 
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#blist.per 

database  TKSTEST 

screen  ♦ 

{  V 

[fOOl  ]  [f002 

ED#  [aO]  VOL#  [al]  DATE  (f004] 

EDITOR  [f007  ] 

[fOOl  ][f002 

ED#  [aO]  VOL#  [al]  DATE  [f004] 

EDITOR  [f007  ] 

) 

end 

tables  - 

booklst 

attributes 

fOOl  ■  booklst .bcode; 
f002  “  boolclst  .bnai.ie; 
aO  -  boolclst  .bedno; 

al  -  booklst .bvol;  ^ 

f004  -  booklst .bdate; 
f007  -  booklst .beditor; 

instructions 

screen  record  b_li3ting[2]  (bcode, bname, bedno, bvol, bdate,  beditor)  ; 
end  ' 


#tksauth.per 
database  tkstest 
screen 
( 

AUTHOR  DATA  SCREEN 


Citation:  [aOOO 

1  Citfile:  [aOOl 

Author: 

AuthSig: 

[a002 

] 

[a003  ] 

[a002 

] 

[a003  ] 

[a002 

] 

[a003  ) 

[a002 

} 

end 

tables 

authors 

] 

[a003  ] 

attributes 

aOOO  "  authors . aucitnumb,  reverse,  upshift,  autonext; 
aOOl  "  authors . aucitfile,  reverse,  upshift,  autonext; 
a002  "  authors . authname,  reverse,  upshift,  autonext,  coinments* 
"Last  Name,  space.  Initials;  no  punctuation"; 
a003  ••  authors .  auLhsig,  reverse,  autonext; 

instructions 

screen  record  a_li3ting(4]  (authname,  authsig) 
end 


#tkskey.per 
database  tkstest 
screen 

KEYWORD  DATA  SCREEN 
Citation:  [kOOO 

Citfile:  [kOOl  } 

KeyCode:  Keyword: 

[)c002  ]  [k003 

[)c002  ]  [k003 

[kC32  ]  [k003 

[k002  ]  [k003 

Ik002  ]  lk003 

[k002  ]  (k003 

{k002  ]  (k003 

[k002  ]  [k003 

[k002  ]  [k003 

[k002  ]  [k003 

) 

end 
tables 
keywords 

attributes 

kOOO  •  keywords . keycitnumb,  upshift,  reverse,  autonext; 
kOOl  -  keywords . keycitfile,  upshift,  reverse,  autonext; 
k002  •  keywords . keycode,  upshift,  reverse,  autonext; 
k003  •  keywords . keyword,  upshift,  reverse,  autonext; 

instructions 

screen  record  k_li3tin9 ( 10]  (keycode, keyword) 
end 


] 

] 

) 

] 

) 

3 

1 

] 

] 

] 
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«seek«ys.per 

database  tkstest 
scre«n 
( 

KEYWORD  LIST 

KeyCode:  Keyword: 

[kOOl  ]  [k002 

[kOOl  ]  [k002 

[kOOl  ]  [k002 

(kOOl  ]  [k002 

[kOOl  ]  [)c002 

(kOOl  j  [k002 

(kOOl  ]  [k002 

[kOOl  ]  [k002 

[kOOl  ]  [k002 

[kOOl  ]  [kCC2 

} 

end 

tables 

keylist 


attributes 

kOOl  ••  keylist . kcode, upshift, reverse, autonext ; 
k002  "  keylist . kword, upshift, reverse, autonext; 


instructions 
screen  record 
end 


k  list [10]  (kcode, kword) 
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ftkspaper.per 
databaso  tkstest 
screen 
{ 

PAPER  OVERVIEW  SCREEN 
Citation  Num:  [fOOO 
[serial] 

Stated  Purpose:  [f002 

Implied  Purpose:  [f003 

Paper  class:  [a]  [aO  ]  [class 

Number  of  Study  Designs  in  Paper:  [all 


]  File  No:  [fOOl 


] 


] 

] 


) 

end 

tables 

paperover 

attributes 

£000  •  paperover .papcitnumb,  reverse,  upshift,  autonext; 
fOOl  -  paperover .papcitfile,  reverse,  upshift,  autonext; 
serial  «  paperover . papserial,  noentry,  noupdate; 
f002  ••  paperover .papstatepur,  reverse,  upshift,  autonext; 
f003  -  paperover . papimppur,  reverse,  upshift,  autonext; 
a  »  formonly. aim, upshift,  reverse,  autonext; 
aO  ■  paperover . papaira,  reverse,  upshift,  autonext; 
al  -  papero\er .papnumdsgn,  reverse,  upshift,  autonext; 
class  -  formonly. class,  upshift; 


and 
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ftksdsgn.per 
database  tkstest 
screen 
( 

STUDY  DESIGN  DATA  SCREEN 

Citation  No:  rile  No: 

[fOOO  ]  [fOOl 


Type  of  Study:  !a0]  (sty  ] 

In  Vivo  or  In  Vitro:  [a]  (vivvit  3 

Controls  (y/n) :  (b] 

Comparison  Info:  IfO]  [comp  3 

Comparison  Methods:  [fl3  (i  3 

Control  Methods:  lf23  (contr  ) 

Control  Types:  [f33  Ij  3 


How  where  subjects  assigned  to  their  groups?  [f43  (k  3 

Numb,  of  Subject  Groups:  (al3 

Numb,  of  Exposure  Regimens:  [a23 

) 

end 

tables 

stdydsgn 

attributes 

fOOO  “  stdydsgn . stycitnumb,  reverse,  upshift,  autonext; 
fOOl  -  stdydsgn. stycitfile,  reverse,  upshift,  autonext; 
serial  ■  stdydsgn , styseria* ,  noentry,  noupdate; 
c  “  stdydsgn . stydsgncur, reverse; 

d  •  stdydsgn .  stydsgritot,  reverse; 

aC  ■  stdydsgn . stytype,  reverse,  upshift,  autonext; 
sty  ■  formonly. study, noentry, noupdate,  upshift; 
a  ■  stdydsgn . styvivit,  reverse,  upshift,  autonext; 
vivvit  •  formonly . vivvit, noentry, noupdate,  upshift; 
b  stdydsgn . stycntl,  reverse,  upshift, 
include  - ("Y", “N') ,  default  -  "N"; 

fO  ■  stdydsgn . stycntlcmp,  reverse,  upshift,  autonext; 
comp  •  formonly. cntlcmp,  upshift; 

fl  ■  stdydsgn . stycmpmeth,  reverse,  upshift, autonext ; 
i  •  formonly. compmeth,  upshift; 

f2  ■  stdydsgn . stycntlmeth,  reverse,  upshift,  autonext; 
contr*  formonly. cntlmeth,  noentry,  noupdate,  upshift; 
f3  *  stdydsgn . stycntltyp,  reverse,  upshift,  autonext; 
j  -  formonly. cntltyp, noentry,  noupdate,  upshift,  autonext; 
f4  ■  stdydsgn . St • cntassgn,  reverse,  upshift,  autonext; 

k  ■  formonly .cntlassgn,  noentry,  noupdace,  upshift,  autonext; 

al  •  stdydsgn . stynumgrp,  reverse,  upshift,  autonext; 

a2  -  stdydsgn . stynumexp,  reverse,  upshift,  autonext; 

instructions 


[serial  3 

]  Design  No.  [c  3  of  [d  3 
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screen  record  d3gn_rec(l]  (stycitnumb, 
stycitf ile, 
styserial, 
stydsgncur, 
stydsgntot 
stycype, 
styvivit, 
stycntl, 
stycntlcmp, 
stycmpmeth, 
stycntlmeth, 

•stycntltyp, 
stycntassgn, 
stynumgrp, 
stynumexp) ; 


screen  record  f_onlyl[l]  (study, 

vivvit, 

cntlcn^, 

coiTipmeth, 

cntlmeth, 

cntltyp, 

cntlassgn) ; 

end 
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ttksexpo.per 
database  tkstest 
screen 
{ 

EXPOSURE  REGIMEN  DATA  SCREEN 

Citation  No.:  [fOOO  ]  [exserial  ] 

Regimen  No.:  [a2]  of  [c  ]  regimens  in  Study  design  [de] [g  ] 

Purpose  for  Exposure:  [fO  ] (p  ] 

Agent:  [fOOl  ] 

Dose:  [f002  ]  {f003  ] 

Formulation:  [aO]  [d  1 

Route:  [al]  [e  ] 

Interval:  [f004  ] 

Duration:  [fOOS  ] 

Administration  Method:  [f006 
Scheduled  Evaluation  Time:  [f007 
) 

end 

tables  exporegn 
attributes 

fOOO  -  exporegtn.excitnumb,  reverse,  upshift,  autonext; 
exserial  -  exporegm. exserial,  default  ■  0,  noentry; 
a2  «  exporegm. exlinX,  reverse,  upshift,  autonext; 
c  ■  formonly  .tot_.".umexpo; 
de  ■  formonly.dsgnlabel; 

g  -  exporegm, exdsgnnum,  reverse,  upshift; 
fO  ■  exporegm. expurpose,  reverse,  upshift,  autonext; 
p  -  formonly .purpose,  noentry,  noupdste; 
fOOl  ••  exporegm. exagent,  reverse,  upshift,  autonext; 
f002  ••  exporegm. exdose,  reverse,  upshift,  autonext; 
f003  ■  exporegm. exdoseunit,  reverse,  upshift,  autonext; 
aO  ■  exporegm. cxformul,  reverse,  upshift,  autonext; 
d  ■  formonly . formulation,  noentry,  noupdate; 
al  exporegm. exroute,  reverse,  upshift,  autonext; 
e  ~  formonly . route,  noentry,  noupdate; 
f004  *  exporegm. exinterval,  reverse,  upshift,  autonext; 
f003  ••  exporegm. exduration,  reverse,  upshift,  autonext; 
f006  ■  exporegm. exadminmeth,  reverse,  upshift,  autonext; 
f007  *  expo regm.exeval time,  reverse,  upshift,  autonext; 

instructions 

screen  record  exp_rec ( 1 ] (excitnumb, 
exserial, 
exdsgnnum, 
exlink, 
expurpose, 
exagenc, 
exdose, 
exdoseunit, 
exformul, 
exroute, 
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ex interval, 
exduration, 
exadmimneth, 
exevaltime) ; 

screen  record  f rm_only [ 1 ] (tot_numexpo, 
dsgnlabel, 
purpose, 
formulation, 
route) ; 
end 
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«tkssubj.p«r 
database  ticstest 


screen 

{ 

SUBJECT  GROUP  DATA  SCREEN 

Citation  No.  [fOOO  ]  [sgserial  ] 

Group  [f  ]  of  [num]  of  Design  [h]  [g  ] 


Species  Breed 

(f002  ]  if003 

Number:  ff004  ] 

Sex:  [x]  [s 


Source 

[fOOl  ] 


Age:  [f005]  [a]  [au  ] [ar] (agerange  ] 

Weight:  [f007] (fOOSj  [wr] [wtrange  ] 

Height:  [f009] [fOlO] 

Occupation  (if  appropriate) :  [f0l2  ] 

Health  Status  of  Subjects:  [f013  ] 


Total  Number  of  Exposures  Received:  (f014  } 

) 

end 

tables  subjgrp 


attributes 

fOOO  •  subjgrp. sgcitnumb,  upshift,  reverse,  autonext; 
sgserial  •  sub jgrp. sgserial,  default-  0,  noentry; 
f  •  subjgrp. sglinlt,  upshift,  reverse  ,  autonext; 
nura  -  formonly . tot_numsub j,  noe.ntry,  noupdate; 
h  -  formonly . dsgnlatel ; 
g  -  sub jgrp . sgdsgnnum, reverse; 

f002  •  subjgrp. sgspecies,  upshift,  reverse,  autonext; 
f003  sub jgrp. sgbreed,  upshift,  reverse,  autonext; 
fOOl  -  sub jgrp . sgsource,  upshift,  reverse,  autonext; 
f004  ■  sub jgrp. jgnumb,  upshift,  reverse,  autonext; 

X  •  sub jgrp. sgsex,  upshift,  reverse,  autonext; 
s  -  formonly . sextrans,  noentry,  noupdate; 
f005  -  sub jgrp. sgage,  upshift,  reverse,  autonext; 
a  *  subjgrp. sgageunit,  upshift,  reverse, autonext, 
comments  ■  "please  enter  the  units  in  reference"; 
au  formonly.ageunlt,  noentry,  noupdate; 

ar  -  sub jgrp. sgagerange,  upshift,  reverse; 
agerange  -  formonly , agerange,  noentry,  noupdate; 
f007  -  subjgrp. sgwt,  upshift,  reverse,  autonext; 
f008  -  sub jgrp. sgwtunit,  upshift,  reverse,  autonext, 
comments  ■  "please  enter  the  units  in  reference"; 
wr  -  sub jgrp . sgwt range,  upshift,  reverse; 
wtrange  -  formonly , wt range,  noentry,  noupdate; 
f009  ■  sub jgrp . sght ,  upshift,  reverse,  autonext; 
fOlO  -  subjgrp. sghtunit,  upshift,  reverse,  autonext, 
comments  -  "please  enter  the  units  in  reference"; 
f012  «  .sub jgrp .  sgoccup,  upshift,  reverse,  autonext; 
f013  -  sub jgrp. sghlthstat,  upshift,  reverse,  autonext; 
f014  -  sub jgrp. sgtotexpo,  upshift,  reverse,  autonext; 
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Code 


instructions 

screen  record  3grp_rec  [  1  ]  (sgcicnuinb, 
sgserial, 
sgdsgnnum, 
sglin)c, 
sgspecies, 
sgbreed, 
sgsource, 
sgnumb, 
sgsex, 
sgage, 
sgageunit, 
sgagerange, 
sgwt, 
sgwtunit, 
sgwt rang®, 
sght, 
sghtunit, 
sgoccup, 
sghlthstat, 
sgtotexpo) ; 

end 


/ 
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«tkMgl.p«r 


database  tlcstest 
screen 

( 

EXPOSURE  GROUP  LINK  ENTRY  SCREEN 
Citation  Nuin:  [fOCO  ] 

Exposure  Group: [d  ] [a  ] [e  )  [si  ] 

Osgn:  [sOOO 
Subj:  [sOOl 
Expo:  [3002 
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[serial 

ExpoGrp  [n  ]  of 


] 

It  ] 

]  [ds 
]  [ag 
1  [ex 


] 

] 

3 


) 

end 

tables  expogrp 
attributes 

fOOO  -  expogrp. egcitnumb,  upshift,  reverse; 
serial  -  expogrp. egserial; 
d  •  expogrp. egdsgnlabel,  reverse, upshift; 
a  ■  expogrp. egsubglabel,  reverse, upshift; 
e  -  expogrp. egexpolabel,  reverse,  upshift; 

*  expogrp. eglink,  upshift,  reverse; 
sOOO  -  expogrp. egdsgndsc,  upshift,  reverse; 
ds  -  expogrp. egdsgn; 

sOCl  -  expogrp. egsubgdsc,  upshift,  reverse; 
sg  ■  expogrp. egsubg; 

s002  -  expogrp. egexpodsc,  upshift,  reverse; 
ex  ■  expogrp . egexpo ; 
n  ■  forraonly .egnum,  reverse; 
t  -  expogrp. egtotnum,  reverse; 


instructions 

screen  record  exgp_rec [1] (egcitnumb, 
egserial, 
egdsgnlabel, 
egsubglabel, 
egexpolabel, 
eglink, 
egtotnum, 
egdsgndsc, 
egdsgn, 
egsubgdsc, 
egsubg, 
egexpodsc. 
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egexpo) ; 

screen  record  exgp_rec2 [ 1 ] (egcitnumb, 
egserial, 
egdsgnlabel, 
egsubglabel, 
egexpolabel, 
egtotnum, 
eglinJc, 
egdsgndsc, 
egdsgn, 
egsubgdsc, 
egsubg, 
egexpodsc, 
egexpo) ; 

screen  record  f_only [1] (egnum) ; 

screen  record  exgp_l  {1]  (eglin)c, 

egdsgndsc, 

egsubgdsc, 

egexpodsc) ; 

end 


310 


Toxin  Knowledge  System  Source  Codi 


#tkseg2.per 

database  ticstest 
screen 
{ 

TKSEXGRP  DATA  SCREEN 

Total  ExpoGrp: [t  ]  Citation  Num:  [fOO  ] 

Exposure  Group  Code:  (aO  ]  [serial  ] 

Dsgn: [fOOO  ] 

Subj:[f001  ] 

Expo: [f003  ] 

Exposure  Group  Code:  [aO  ]  [serial  ] 

Dsgn: [fOOO  ] 

Subj:[f001  ] 

Expo: [f003  ] 

Exposure  Group  Code:  [aO  ]  [serial  ] 

Dsgn: [fOOO  ] 

Subj:[f001  ] 

Expo: [£003  ] 

) 

end 

tables  expogrp 


attributes 

t  -  expogrp . egtotnum,  reverse,  upshift,  noentry,  noupdate; 

£00  -  expogrp. egcitnumb,  reverse,  upshift; 

aO  >  expogrp. eglinic,  reverse,  upshift; 
serial  «  expogrp. egserial; 

fOOO  ■  expogrp. egdsgndsc,  reverse,  upshift,  noentry,  noupdate; 

fOOl  -  expogrp. egsubgdsc,  reverse,  upshift,  noentry,  noupdata; 

f003  •  expogrp. egexpodsc,  reverse,  upshift,  noentry,  noupdata; 

instructions 

screen  record  exgp_rec [3] (eglink, 

egserial, 

egdsgndsc, 

egsubgdsc, 

egexpodsc) 

end 
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#tkscf.per 

database  tkstest 
screen 

CLINICAL  FINDING  DATA  S’REEN 

Citation  Number:  [fOOC  ]  (fO  ] 


Expo  Grp:  if 005  ]  [f05  ) 

[eOOl 

[e002 

[e003 

Clinical  Finding:  Type:[m]  Site  [fOOI 
(f002 
[f004 

Change 
[a] [f007 

Freq 

[foil  ] 


Severity  Units 
]  [f008  ]  (f009  ] 

Onset  Duration 

[f012  ]  [£013  ] 


] 

] 

] 

Effect  [f003  3 

3 

3 


) 

end 

tables 

clinfind 

attributes 

fOOO  ••  clinfind. cfcitnumb,  upshifts  autonext,  reverse; 
fO  •  clinfind. cf serial; 
f05  ■  clinfind. cfeglink; 

f005  -  clinfind. cfeglatael,  upshift,  autonext,  reverse, 
coirments  ■  "Exposure  Group  that  produced  effect"; 
m  ■  clinfind . cf type,  upshift,  reverse,  autonext; 

fOOl  “  cl inf ind. cfsitecode,  upshift,  autonext,  reverse, 
comments  -  "Code  for  Anatomical  site  of  clinical  effect"; 
f002  »  clinfind . cf site,  upshift,  autonext,  reverse; 
f003  -  clinfind. cffindcode,  upshift,  autonext,  reverse, 
comments  «  "Code  for  Clinical  effect"; 
f004  “  clinfind. cf finding,  upshift,  autonext,  reverse; 
a  •  clinfind. cfchange,  upshift,  autonext,  reverse; 

f007  ■  formonly .change,  reverse; 

f008  -  clinfind. cfsevvalue,  upshift,  autonext,  reverse, 
comments  ■  "Estimate  of  severity  or  lao  result  value"; 
f009  ■  clinfind. cfsevunits,  upshift,  autonext,  reverse, 
comments  -  "Units  of  lab  result"; 

fCll  ■  clinf ind . cf freq,  upshift,  autonext,  reverse, 

comments  -  "Frequency  of  occurance  as  Affected/To. al,  eg.  3/5"; 

f012  •  clinf ind. cfonset,  upshift,  autonext,  reverse, 

comments  •  "Tima  in  hours  between  exposure  and  onset  of  signs/ findings"; 
f013  "  clinfind . cfdurat ion,  upshift,  autonext,  reverse, 
comments  ■  "Duration  of  signs/ finding  in  hours"; 


eOOl"  formonly . egdsgndsc,  upshift,  autonext,  reverse,  noentry,  noupdate; 
e002*  formonly . egsubgdsc,  upshift,  autonext,  reverse,  noentry,  noupdate; 
e003“  formonly . egexpodsc,  upshift,  autonext,  reverse,  noantry,  noupdate; 


instructions 


screen  record  cf_li3t(l]( 

cfcitnumb, 

cfserial, 

cfeglink, 

cfeglabel, 

cftype, 

cfsitecode, 

cfsite, 

cf f indcode, 

cffinding, 

cfchange, 

cfsevvalue, 

cfsevunits, 

cf f req, 

cf onset, 

cfduration) 

end 
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roxin  Knowledge  Systenfi  Sourre  Code-. 


ttkssite.per 

database  tkstest 
screen 
( 

System:  [a]  Organ:  [b  ]  Location:  [c  )  — »  TKS  Site:  [fOOO  ] 
[fOOl 


[fl 

]  (f004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

]  (f004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

]  rf004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

]  [f004 

[fl 

] (f004 

[fl 

]  [f004 

[fl 

} 

end 

] [f004 

tables 

tkssite 

attributes 

a  ■  formonly.sys,  upshift,  autonext; 

b  -  formonly .org,  upshift,  autonext; 

c  ■  formonly . loc,  upshift,  autonext; 

fOOO  ■  formonly , choice; 

fOOl  «  f ormonly . choicenime,  ncentry,  noupdate; 
fl  “formonly .holdcode; 
f004  “formonly .holdname; 

instructions 

screen  record  inputer(l]  (sys,  org,  loc,  choice,  choicename) ; 

screen  record  holdar(15]  (holdcode,  holdname); 

end 


] 

] 

] 

1 

} 

J 

] 

] 

1 

) 

] 

] 

1 

] 

] 
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I 


Toxin  KnoviA^ge  System. Source  Code! 


#tkssynls.p«r 

database  tkstest 


Clinical  Finding  Synonyn 
[fOOl 


TKS  FINDING  SYNONYM  SCREEN 

] 


[fl  ] [f004  ] 

[fl  ] [f004  } 

(fl  ] [f004  ] 

[fl  ] [f004  3 

[fl  ] [f004  3 

[fl  ] [f004  3 

[fl  3(f004  3 

[fl  3 [f014  3 

[fl  3 [fC04  3 

[fl  3 [f004  3 

[fl  3[f004  3 

[fl  3[f004  3 

[fl  3 [«004  3 

[fl  3(f004  3 

[fl  3 [f004  3 

) 

end 

tables 

tkssite 

attributes 


fOOl  “  formonly. finding,  noentry,  noupdate, upshift ; 
fl  •formonly.holdcode, upshift; 
f004  ■formonly.holdnanve,  upshift; 


instructions 

screen  record  holder  [153  (holdcode,  holdnante) ; 
end 
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#tkscil.p«r 
database  tkstest 
screen 
{ 

Clinical  Finding:  Site/Matrix  [fOOl  ]  Test/Lesion/Ef feet  If003  ] 

[f002  ] 

[f004  ] 

) 

end 

tables 

clinfind 

attributes 

£001  -  formonly . sitecode,  upshift,  autonext,  reverse, 

consnents  ■  "Code  for  Anatomical  site  of  clinical  effect"; 

f002  ••  formonly . site,  upshift,  autonext,  reverse; 

f003  -  formonly . findcode,  upshift,  autonext,  reverse, 

comments  ■  "Code  for  Clinical  effect"; 

f004  >  formonly . finding,  upshift,  autonext,  reverse; 

end 
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TKSCF2  DATA  SCREEN 

Citation  Number:  [fOOO 

Exposure  Group: [f005 

[eOOl 

[e002 

[e003 


] 

] 

] 


Total  number  o£  signs: [nmb] 

[num]  Clinical  Finding:  Site  (fOOl  ]  Effect  If003  ] 

[f002  ] 

(f004  ) 

Change  Severity  Units  Freq  Onset  Duration 

[f007  ]  [f008  1  [£009  J  [fOll  1  [f012  ]  [f013  1 

) 

end 

tables 

clinfind 

attributes 

fOOO  ••  clinfind. cfcitnumb,  upshift,  autonext,  reverse; 
fOOS  ■  clinfind. cfeglinlc,  upshift,  autonext,  reverse, 
comments  >  "Exposure  Group  that  produced  effect"; 
fOOl  clinfind. cfsitecode,  upshift,  autonext,  reverse, 
comments  ■■  "Code  for  Anatomical  sice  of  clinical  effect"; 
f002  -  clinfind. cfsite,  upshift,  autonext,  reverse; 
f003  -  clinfind. cffindcode,  upshift,  autonext,  reverse, 
comments  «  "Code  for  Clinical  effect"; 

£004  >  clinfind. cf finding,  upshift,  autonext,  reverse; 
fC07  *  clinfind. cfchange,  upshift,  autonext,  reverse, 

comments  -  "0-  NOS,  1-  NML,  2-  DISORD,  3-  INC,  4-  DEC,  5-  ABSC,  6-ABN  PRES,  7- 
ABN  RATIO"; 

£009  -  clinfind. cfsewalue,  upshift,  autonext,  reverse, 
comments  »  "Estimate  of  severity  or  lab  result  value"; 

£009  ••  clinfind. cfsevunits,  upshift,  autonext,  reverse, 
comments  "Units  of  lab  result"; 

foil  -  clinfind. cffreq,  upshift,  autonext,  reverse, 

comments  ••  "Frequency  of  occurence  as  Affected/Total,  eg.  3/5"; 

f012  •  clinf ind. cf onset,  upshift,  autonext,  reverse, 

comments  ••  "Time  in  hours  between  exposure  and  onset  of  signs/findings"; 

£013  -  cliniind. cfduration,  upshift,  autonext,  reverse, 
comments  «  "Duration  of  signs/finding  in  hours"; 

e001«  formonly.egdsgndsc,  reverse,  noentry,  noupdate; 
e002"  formonly .egsubgdsc,  reverse,  noentry,  noupdate; 
e003"  formonly .egnxpodsc,  reverse,  noentri,  noupdate; 
nmb“  formonly . totnumber,  reverse,  noentry,  noupdate; 
num«  formonly . curnumber,  reverse,  noentry,  noupdate; 

instructions 


screen  record  effect ( 1 1  (cfcitnumb, 
cfeglink) ; 
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oxin  Knowledqe  System  Source  Code 


screen  record  egclinfind[l] (cfsitecode, 

cfsite, 

cf f indcode, 

cf finding, 

curnumber 

cf change, 
cfsewalue, 
cfsevunits, 
cf f req, 
cfonset, 
cfduration) ; 
end 
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#tkscf3.per 
database  tkstest 
screen 
{ 

TKSCF3  DATA  SCREEN 


Citation 

Number:  [fOOO 

] 

Clinical 

Finding;  Site  [fOCl 

]  Effect  [f003 

] 

[f002 

] 

[f004 

] 

Expo  Grp; 

;  (f005  1 

[eOOl 

] 

te002 

] 

[e003 

] 

Change 

Severity  Units 

Freq  Onset 

Duration 

[f007 

]  [f008  ]  [f009 

]  (foil  ]  (f012 

]  [f013 

] 

} 

end 

tables 

clinfind 

attributes 

fOOO  •  clinfind. cfcitnunvb,  upshift,  autonext,  reverse; 
fOOl  >•  clinfind. cfsitecode,  upshift,  autonext,  reverse, 
comments  ••  “Cods  for  Anatomical  site  of  clinical  effect"; 
f002  ••  clinfind. cfsite,  upshift,  autonext,  reverse; 
f003  -  clinfind. off indcode,  upshift,  autonext,  reverse, 
comments  «  “Code  for  Clinical  effect"; 
f004  >  clinfind. cffinding,  upshift,  autonext,  reverse; 
fOOS  •  clinfind. cfeglink,  upshift,  autonext,  reverse, 
comments  “  “Exposure  Croup  that  produced  affect"; 
f007  -  clinfind. cfchange,  upshift,  autonext,  reverse, 

comments  -  “0-  NOS,  1-  NML,  2-  DISORD,  3-  INC,  4-  DEC,  5-  ABSC,  6"AflN  PRES,  7- 
ABN  RATIO"; 

f008  >  clinfind. cfsevvalue,  upshift,  autonext,  reverse, 

comments  •  "Estimate  of  severity  or  lab  result  value"; 

f009  «  clinfind. cfsevunits,  upshift,  autonext,  reverse, 

comments  ■  "Units  of  lab  result"; 

foil  ■  clinfind. cffreq,  upshift,  autonext,  reverse, 

comments  ■  "Frequency  of  occurance  as  Affected/Total,  eg.  3/5"; 

f012  «  clinf ind. cf onset,  upshift,  autonext,  reverse, 

comments  *  "Time  in  hours  between  exposure  and  onset  of  slgns/f indings"; 
f013  ■  clinf ind. cfduration,  upshift,  autonext,  reverse, 
comments  ■  "Duration  of  signs/finding  in  hours"; 

e001>  fonnonly .egdsgndsc,  upshift,  autonext,  reverse,  noentry,  noupdate; 

e002*'  formonly . egsubgdsc,  upshift,  autonext,  reverse,  noentry,  noupdate; 

e003‘<  formonly .egexpodsc,  upshift,  autonext,  reverse,  noentry,  noupdate; 

instructions 

screen  record  cf_list(l] ( 

cfcitnumb, 

cfsitecode, 

cfsite, 


oxin  Knowledge  System  Source  Code 


cf findcode, 
cf finding, 
cf eglink, 
cf change, 
cf sevvalue, 
cf sevunita, 
cffreq, 
cfonset, 
cfduration) 
er  i 
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#vocbook.per 
database  tkstest 
screen 

BOOK  SOURCE  DATA  SCREEN 

Acquistion  Number:  [fOOO  ]  Book  Code:  [f&Ol  ] 

Book  Title: 

[f002  ] 

Edition  Volume  Year 

[aO]  [al]  [f004] 

Publ  •' sher :  {£006  ]  Pub.  Address  :[ £007  ] 

Editor  Name:  [fOO0  ] 

ISBN:  (£009  1 

) 

end 
tables 
•  booklet 
attributes 

£000  •  bocklst  .hacquis,  up3M£t,  reverse,  autonext; 

£001  •  booklet .bcode, up3hi£t,  reverse,  autonext; 

£CC2  »  booklet .bname. upshift,  reverse,  autonext; 

aO  *  booklsc .bedno, right,  zerofrll.  upshift,  reverse,  autonext; 

al  ••  booklst .bvol. upshift,  reverse. right,  zerofill,  autonext; 

£004  o  booklst .bdate, upshift,  reverse,  autonext; 

?006  “  booklst .bpub, upshift,  reverse,  autonext; 

£007  ■  booklst .bpubplace, upshift,  reverse,  autonext; 

£003  >>  booklst  .ceditor,  upshift,  reverse,  autonext; 

£009  «  booklst .bisbn, upshift,  reverse,  autonext; 
end 
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Foxin  Knowledge  System  Source  Code 


#vocjourn.per 
database  tlcstest 
screen 
( 

JOURNAL  SOURCE  DATA  SCREEN 
Acquistion  Number:  (fOOO  ] 

Journal  Code:  [fOOl  ] 


] 
1 

Journal  Abbreviation: 

[£004  ] 


Journal  Name: 

[f002 

[f003 


end 

tables 

journlst 

attributes 

£000  -  £ormonly , jacquis,  reverse,  noentry,  queryclear,  noupdato; 
£001  •  journlst . jcoae, reverse, upshi£t; 

£002  journlst. jname [1, 60] ,  reverse,  autonext,  upshi£t; 

£003  •  formonly .  jntn,  reverse,  autonext,  upshift; 

£004  -  journlst . jabrv,  reverse,  autonext, upshift; 


Toxin  Knowledge  System  Source  Code 


4vock«ys.p«r 
database  tJestest 
screen 


KEYWORD  VOCABULARY  SCREEN 

KeyCode:  Keyword; 

[kOOl  ]  [k002  ] 

1 

end 

tables 

keylist 

attributes 

IcOOl  "  keyllst .  kcode,  upshift,  reverse,  autonext; 
)t002  ■  Iceylist . kword,  upshift,  reverse,  autonext; 

end 
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oxin  Knowledge  System  Source  Code 


«voclab.per 

database  tkstest 
screen 
( 

TKS  LAB  TEST  VOCABULARY 
CodeNum  Preferred  Term 


ifOOO  ]  [fOOl  ] 

Lab  Test  Category;  [f] [g  ] 

Lab  Test  Definition: 

[f003  ] 

SNOMED/VET 

[f005  ] [f006  ] 

_ _ SYNONYMS  FOR  TERM _ _ 

[f008  ][f009  ] 

[f008  ][f009  ] 

[f008  ][f009  ] 

[f008  ] [f009  ] 

[f008  ] (f009  ] 

) 

end 

tables 

lablst  labsynlst 


attributes 

fOOO  "  lablst . labnum; 

fOOl  "  lablst . labterm,  upshift, reverse; 

f  -  lablst . labsys'-labsynlst . labsynsys,  upshift,  reverse; 

g  -  lablst . labsysname,  reverse; 

f003  *  lablst . labdef,  upshift, reverse; 

fOOS  “  lablst . labsnocde; 

f006  ■  lablst . labsnotrm,  upshift, reverse; 

f008  “  labsynlst . labcode; 

f009  -  labsynlst . labsyn,  reverse,  upshift; 
instructions 

screen  record  holder(5]  (labcode,  labsyn); 
end 


;  r ^ Toxin  Knowledge  System  Source  Code 


#vocmorph.per 
database  tlcstest 
screen 
( 

TKS  MORPHOLOGY  VOCABULARY 
CodeNum  Preferred  Term 

[fOOO  ][f001  ] 

Morphology  Definition: 

[f003  ] 

SNOMED/VET 


[f005 

]  [f006 

SYNONYMS  FOR  TERM 

] 

[f008 

]  (fOC9 

] 

(f008 

]  (f009 

] 

(f008 

]  (f009 

] 

[f008 

]  [f009 

] 

[fC08 

]  [f009 

] 

) 

end 

tables 

morphlst 

morphsynlst 

attributes 

fOOO  •  morphlst .morphnum; 

fOOl  -  morphlst .morphterm,  upshift, reverse; 
f003  ■  morphlst .mo rphdef,  upshift, reverse; 
f005  ■  morphlst .morphsnocde; 
f00£  *  morphlst  .morphsnotr.m,  upshift,  reverse; 

£003  •  morphsynlst .morphcode; 

f003  ••  morphsynlst .morphsyn,  reverse,  upshift; 

instructions 

screen  record  holder [5]  (morphcode,  morphsyn); 
end 
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roxin  Knowledge  System  Source  Code 


#vocslgn.per 

database  tkstest 


{ 

TKS  SIGN/DISEASE  VOCABULARY 
CodeNum  Preferred  Terra 
[fOOO  ] [fOOl 


Systera  Code: [f ]  System  Name: [f 002 
Sign/Disease  Definition: 

[f003 


SNOMED/VET 


[f005  ]  [f006 

_ S YNONYMS 

[f008  ] [f009 

[f008  ][f009 

[f008  ]!f009 

[f008  ] [f009 

[f008  ] [f009 

) 


] 

FOR  TERM _ _ _ 

] 

] 

] 

] 

] 


end 


tables 

signlst  signsynlst 


attributes 

fOOO  signlst .  signnum; 

fOOl  "  signlst . sign,  upshift, reverse; 

f  -  signlst. systemcode-  signsynlst. signsynsys,  upshift, reverse; 

f002  »  signlst . systemname,  upshift, reverse; 

f003  -  signlst. signdef,  upshift, reverse; 

f005  ■  signlst. snocode; 

f006  -  signlst .snoterm,  upshift, reverse; 

f008  -  signsynlst . signcode; 

f009  ■  signsynlst . signsyn,  reverse,  upshift; 

instructions 

screen  record  holder [S]  (signcode,  signsyn); 
end 
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Toxinf  Knowledge  System  Source  Codi 


#vocsite.per 

database  tkstest 
screen 
{ 


TKS-SITE-DATA-SCREEN 
Site  Code:  [fOOO  ] 

System  Code:  [a] 

System  Name:  [fOOl  ] 

Organ  Code : [aO] 

Organ  Name: [f003 

Loc  Code:  [al  ] 

Loc  Name:  [fOOS 

SNOMED/VET  Code:  [f007  ] 

) 

end 

tables 

tkssite 

attributes 

fOOO  -  tkssite . sitecode,  reverse,  autonext,  upshift; 
a  »  tkssite . systemcode,  reverse,  autonext,  upshift; 
fCOl  •  tkssite. systemname,  reverse,  autonext; 
aO  “  tkssite . organcode,  reverse,  autonext,  upshift; 
f003  *•  tkssite . organname,  reverse,  autonext,  upshift; 
al  «  tkssite. locatecode,  reverse,  autonext,  upshift; 
f005  ••  tkssite . locatename,  reverse,  autonext,  upshift; 
f007  »  tkssite . snotopnum,  reverse,  autonext,  upshift; 
end 


] 

] 
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oxin  Knowledqe  System  Source  Code 


#querybib.per 
database  tkstest 
screen 
{ 

QUERY-BY-EXAMPLE  DATA  SCREEN 


Citation  Number:  [fOOO  ]  File  Code:  [fOO  ] 

Journ/Book  Code  Vol  Pages  Year  Location 

[fOOl  ]  [f002]  [f003  ]  [f004]  [f005  ] 

[aOl  ] 

Title  of  Article  or  Chapter:  [f006  ] 

[f007  ] 

[fOOe  ] 

[f009  ] 

-  Author  - 

[fOlO  ] 

[£011  ] 

-  Keyword  - 

[f013  ] 

[£014  ] 

Keycode  (£016  ] [£017  ] [£018  ] (£019  ] 

) 

end 


tables 

citation  authors  keywords 
attributes 

£000  -  citation. citnumb  ■  authors . aucitnumb  -  keywords .keycitnumb, upshift,  re¬ 
verse; 

£00  *•  citation .  citfile,  upshift,  reverse; 

£001  -  citation. citsource, upshift,  reverse; 

£002  ■  citation . citvol, upshift,  reverse; 

£003  •  citation. citpage, upshift,  reverse; 

£004  «  citation . citdate, upshift ,  reverse; 

£005  •>  citation. citlocate, upshift,  reverse; 

£006  ••  formonly.ctl, upshift,  reverse; 

£007  -  £ormonly.ct2, upshift,  reverse; 

£008  -  formonly.ctJ, upshift,  reverse; 

£009  >  formonly. ct4, upshift,  reverse; 

£010  -  formonly . authnaiM, upshift,  reverse; 

£011  -  £omonly.authname2,  upshift,  reverse; 

£013  *  formonly. keyword, upshift,  reverse; 

£014  -  formonly .keyword2, upshift,  reverse; 

£016  -  formonly . keycode, upshift,  reverse; 

£017  o  formonly. keycode2, upshift,  reverse; 

£018  -  formonly .keycode3, upshift,  reverse; 

£019  «  formonly .keycode4, upshift,  reverse; 

aOl  ■>  formonly. citname,  noentry,  noupdate,  reverse; 
end 
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iailcit.per 

database  tksteat 
screen 

RAW  CITATION  DATA  SCREEN 


citnumb 
citf ile 
citserial 
citsource 
citvol 
citpage 
citdate 
cittitle 
[f006 
[f007 
[f008 
[f009 
citlocate 
er.crydata 
} 

screen 


[fOOO 

[foil 

[cserial 

[fOOl 

[f002] 

[f003 

[f004] 

[fOOS 


[fOlO  ] 
[fdte 


RAW  AUTHOR  DATA  SCREEN 


aucitnumb 
aucitf ile 
auserial 
authnane 
authsig 
) 

screen 

[ 


[fOOO 

[f013 

[aserlal 

tf014 

[aO] 


RAW  KEYWORD  DATA  SCREEN 


keycitnumb  [fOOO  ] 

keycitfile  [f016  J 

keysexial  [kserial  } 

keyword  [f017  ] 

keycode  [f018  ] 

} 

end 

tables 

citation 

authors 

keywords 

attributes 

fOOO  -  citation. citnumb  ■  authors. aucitnumb-  keywords. keycitnumb, upshift; 

foil  -  citation. citfile, upshift; 

cserial  -  citation. citserial; 

fOOl  «  citation . citsource, upshift; 

f002  citation. citvol,  upshift; 

f003  citation. citpage,  upshift; 

f004  »  citation . citdate, upshift; 
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f005  -  citation. cittitle [1, 50] , upshift; 
f006  <•  citation. cittitle [51, 100] , upshift; 
f007  -  citation. cittitledOl,  150] , upshift; 
f008  -  citation. cittitle [151, 200] , upshift; 
f009  -  citation. cittitle[201, 250], upshift; 
fOlO  -  citation . citlocate, upshift; 
fdte  -  citation . entrydate; 

f013  ■  authors . aucitfile, upshift ; 
aserial  -  authors . auserial; 
f014  -  authors . authname, upshift ; 
aO  -  authors . authsig, upshift ; 

f016  »  keywords . keycitfile, upshift; 
kserial  -  keywords. keyserial ; 
f017  «  keywords . keyword, upshift ; 
f018  -  keywords. keycode, upshift ; 

INSTRUCTIONS 

CITATION  MASTER  OF  AUTHORS 
authors  master  of  keywords 

END 
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fallpaper.per 
database  ticstest 
screen 

( 


papcitnumb 

[fOOO 

papcitf ile 

[flOl 

papserial 

[papserial 

papstatepur 

[fl02 

papimppur 

[fl03 

papaiiQ 

[zO  ] 

papnumdsgn 

} 

screen 

{ 

[fl04 

] 

stycitnumb 

(fOOO 

stycitfile 

(fOOl 

styserial 

[styserial 

stydsgncur 

[f002 

] 

stydsgntot 

[f003 

] 

stytype 

[aO] 

styvivit 

[a  ] 

stycntl 

[b] 

stycntlcmp 

[c  ] 

stycmpmeth 

[«43 

stycntlmeth 

[d  ] 

stycntltyp 

(f5j 

stycntassgn 

[f6) 

Styn’a:r,grp 

[a,l] 

stynun«xp 

J 

screen 

[32] 

{ 


sgcitnumb 

[sgOOO 

sgserial 

(sgserial  ] 

sgdsgnnum 

[styserial  } 

aglink 

(•  ] 

sgspacics 

(£009 

] 

J 

sgbread 

(£010 

sgsource 

(foil 

] 

sgnumb 

(£012  J 

sgsex 

(£019] 

sgaga 

(£013]  sgageunit 

(s] 

sgwt 

(£015  ]  sgwtunit 

(£7) 

sght 

[£017]  sghtunit 

(£018] 

sgoccup 

(£020 

J 

) 

sghlthstat 

(£021 

sgtotexpo 

) 

screen 

1 

(£022  ] 

] 


s^agerange 
sgwt range 


tr] 

[wr) 
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'jxcitnumb 

[exOOO 

exserial 

[exserial 

exdagnnura 

[styserial 

exlink 

[a3 

expurpose 

[f025  ] 

exagent 

[f02  6 

exdose 

[f027  3 

exdoseunit 

[f028  ] 

exf ormul 

[a4] 

exroute 

[a5] 

exinterval 

[£029  ] 

exduration 

[f030 

exadminmeth 

[f031 

exevaltime 

) 

screen 

[f032 

] 


] 

] 


egcitnumb 
egserial 
egtotnum 
eglink 
egdsgn 
egdsgn label 
egdagndac 
[f042 
egsubg 
egsubglabel 
egaubgdac 
(fC43 
egexpo 
egexpolabel 
egexpodsc 
[f044 
) 

screen 

{ 

cfcitnumb 

cf serial 

cfegserlal 

cfeglabel 

cfsltecode 

cf site 

[c004 

cf findcode 
cf finding 
tc007 
cf change 
cf sevvalue 
cf sevunlts 
cf f req 
cfonsec 
cfduratlon 
) 

end 


(egOOO  ) 

[egserlal  ] 

ftn] 

[f041  ] 

[styserlal  ] 

(dsgnlabel  ] 


[sgserlal  ] 
(subglabel  ] 


[exserial  ] 
[expolabel  ] 


[cOOO  } 

(cfserlal  ] 

[egserlal  ] 

[cOOla  ] 

[c002  ] 

[c003 

I 

[c005  1 

[c006 

) 

[c008  ] 

[c009  J 

(cOlO  ] 

[cOll  ] 

[c0l2  ] 

[c013  ] 
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tables  paperover  stdydsgn  subjgrp  exporegm  expogrp  clinfind 
attributes 

fOOO  •  papcitnumb-stycitnumb,  reverse,  upshift, queryclear; 
flOl  «  paperover. papcitfile, reverse, upshift, queryclear; 
papserial  -  paperover .papserial, reverse, queryclear; 
fl02  »  paperover .papstatepur, reverse, upshift, queryclear; 
fl03  «  paperover .papimppur, reverse, upshift, queryclear; 
zO  paperover. papaim, reverse, upshift, queryclear; 
fl04  -  paperover. papnumdsgni reverse, upshift, queryclear; 

fOOl  -  stycitfile,  reverse,  upshift, queryclear; 

styserial  -  stdydsgn . styserial-  egdsgn-  sgdsgnnuin-  exdsgnnum, reverse, queryclear ; 

f002  ■  stydsgncur,  reverse,  upshift, queryclear ; 

f003  ••  stdydsgn. stydsgntot,  reverse,  upshift, queryclear; 

aO  -  stdydsgn . St ytype,  reverse,  upshift, queryclear; 

a  ■  stdydsgn . styvivit,  reverse,  upshift, queryclear; 

b  ■  stdydsgn. stycntl,  reverse,  upshift, queryclear; 

c  ■  stdydsgn . stycntlcmp,  revars. •  upshift,  queryclear; 

f4  ■  stdydsgn. stycmpmeth,  reverse,  upshift, queryclear; 

d  ■  stdydsgn. stycntlineth,  reverse,  upshift, queryclear; 

£5  ■  stdydsgn. stycntltyp,  reverse,  upshift, queryclear; 

£6  ~  stdydsgn . stycntassgn,  reverse,  upshift, queryclear; 
al  ~  stdydsgn. stynunigrp,  reverse,  upshift, queryclear; 
a2  ■■  stdydsgn . stynumaxp,  reverse,  upshift, queryclear; 

sgOOO  -  sgcitnumb,  reverse,  upshift, queryclear; 

sgserial  -  subjgrp.sgserial-expogrp.ogsubg, reverse, queryclear; 

e  •  subjgrp.sglinJc,  reverse,  upshift, queryclear; 

f009  ■  subjgrp. sgspecies,  reverse,  upshift, queryclear; 

£010  •  subjgrp. sgbreed,  reverse,  upshift, queryclear; 

£011  •  sub jgrp. sgsourca,  reverse,  upshift, queryclear; 

£012  -  sub jgrp. sgnumb,  reverse,  upshift, queryclear; 

£019  •  subjgrp. sgsex,  reverse,  up.shi ft, queryclear; 

£013  «  subjgrp. sgaga,  reverse,  upshift, queryclear; 
s  -  subjgrp. sgageunit,  re-'erse,  upshift, queryclear; 
r  >  sub jgrp. sgagerange,  reverse,  upshift, queryclear; 

£015  -  subjgrp. sgwt,  reverse,  upshift, queryclear; 

£7  ■  subjgrp. sgwtunit,  reverse,  upshift, queryclear; 
wr  ■  sub jgrp. sgwt range,  reverse,  upshift, queryclear; 

£017  ••  sub jgrp . sght,  reverse,  upshift, queryclear; 

£018  <■  subjgrp. sghtunit,  reverse,  upshift, queryclear; 

£020  •  subjgrp. sgoccup,  reverse,  upshift, queryclear; 

£021  -  sub jgrp. sghlthstat,  reverse,  upshift, queryclear; 

£022  ■  subjgrp. sgtotexpo,  reverse,  upshift, queryclear; 

exOOO  ■  excitnumb,  reverse,  upshift, queryclear; 

exserial  -  exporegm. exserial-expogrp.egexpo, reverse, queryclear; 

a3  ■  exporegm. exlink,  reverse,  upshift, queryclear; 

£025  ■  exporegm. expurpose,  reverse,  upshift, queryclear; 

£026  ■  exporegm. exagent,  reverse,  upshift, queryclear; 

£027  •  exporegm. exdose,  reverse,  upshift, queryclear; 

£028  ■■  exporegm. exdoseunit,  reverse,  upshift, queryclear; 
a4  »  exporegm. exformul,  reverse,  upshift, queryclear; 
a5  •  exporegm. exroute,  reverse,  upshift, queryclear; 

£029  -  exporegm. exinterval,  reverse,  upshift, queryclear; 

£030  ■  exporegm. exduration,  reverse,  upshift, queryc lea r ; 
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f031  “  exporegm.exadininmeth,  reverse,  upshift, queryclear; 
f032  -  exporegm.exevaltime,  reverse,  upshift, queryclear; 


egOOO  -  egcitnumb,  reverse,  upshift, queryclear, • 

egserial  -  expogrp . egserial“clinf ind. cfeglinlc, reverse, queryclear; 
tn  -  expogrp . egtotnum,  reverse, queryclear; 

f041  -  expogrp. eglink,  reverse,  upshift, queryclear ; 
dsgnlabel  ■  expogrp. egdsgnlabel; 

f042  -  expogrp. egdsgndsc,  reverse,  upshift, queryclear; 
subglabel  -  expogrp. egsubglabel; 

f043  -  expogrp. egsubgdsc,  reverse,  upshift, queryclear; 
expolabel  -  expogrp. egexpolabel; 

f044  ••  expogrp . egexpodsc,  reverse,  upshift, queryclear; 


cOOO  ■  cfcitnumb,  reverse,  upshift, queryclear; 
cf serial  «  clinfind. cf serial, reverse, queryclear; 
cOOla  clinfind. cfeglabel,  reverse,  upshift, queryclear; 

c002  -  clinfind. cfsitecode,  reverse,  upshift,  queryclear; 
c003  -  clinfind. cfsite [1, 35] ,  reverse,  upshift, queryclear; 
c004  >■  clinfind. cfsite [36, 70] ,  reverse,  upshift, queryclear; 
c005  ■■  clinfind. cffindcode,  reverse,  upshift, queryclear; 
c006  •  cllnfind.cff inding[l, 35] ,  reverse,  upshift, queryclear; 
c007  -  clinfind.cffinding(36, 70] ,  reverse,  upshift, queryclear; 
c008  •  clinfind. cfchange,  reverse,  upshift, queryclear; 
c009  ••  clinfind. cfsewalue,  reverse,  upshift, queryclear; 
cOlO  ~  clinfind. cfsevunits,  reverse,  upshift, queryclear; 
cOll  *•  clinfind. cffreq,  reverse,  upshift, queryclear; 
c012  -  clinfind. cfonset,  reverse,  upshift, queryclear; 
c013  «  clinfind. cfduration,  reverse,  upshift, queryclear; 


instructions 

paperover  master  of  stdydsgn; 
stdydsgn  master  of  subjgrp; 
subjgrp  ma.ster  of  exporegm; 
exporegm  master  of  expogrp; 
expogrp  master  of  clinfind; 


coR^osites 

Otdydsgn .  sty3erial> 

<sub jgrp . sgdsgnnum> 

<exporegm . exd3gnnum> 

<expogrp . egdsgn> ; 
composites 

<subjgrp. sgserial, subjgrp. sgdsgnnum> 
<axpogrp . egsubg, expogrp . egdsgn>; 
composites 

<exporegm .  exserial ,  exporcg..i .  exd3gnnum> 
<expogrp . egexpo, expogrp . egdsgn> ; 

end 


frawtab.per 
database  tkstest 
screen 
{ 

Lab-Finding  Code  [fOOO  ] 

Synonyms 
[fOOl 
[f002 

Preferred  Term 
[f004 
[fOOS 

Lab  Test  Category:  [f] 

Term  Definition  [f006 

[f007 

SNOMED/VET  Code  (f008  ] 

[fOC9 
[fOlO 
) 

end 
tables 

labsynlst  lablst 
attributes 

fOOO  ••  labsynlst . labcode  *  lablst . labnum,  upshift; 
fOOl  ■  labsynlst . labsyn (1, 60] ,  upshift; 
f002  -  labsynlst . labsyn [61, 100] ,  upshift; 

f004  ••  lablst .  labteimt  1,  60]  ^  upshift; 

fOOS  ■  lablst . labtermi €1, 100] ,  upshift; 

t  *  lablst .  labsys  ••  labsynlst .  labsynsys,  upshift; 

f006  ■  lablst .labdef (1, 50] ,  upshift; 

f007  -  lablst.labdef (51, 100] ,  upshift; 

f008  «  lablst . labsnocde,  upshift; 

f009  >  lablst . labsnotrm( 1, 60] ,  upshift; 

fOlO  >  lablst . labsnotrm[61, 100} ,  upshift; 

instructions 

composites  <lablst . labnum,  lablst. labsys> 

<labsynlst . labcode,  labsynlst. labsynsys>; 
labsynlst  master  of  lablst; 
end 


] 
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#rawmorph.per 
database  tkstest 
screen 
{ 

Morphology  Code  [fOOO  ] 


Synonyms 

[fOOl  ] 

[f002  ] 


Preferred  Term 

[f004  ] 

[f005  ] 

Term  Definition  (f006 

[f007 

SNOMED/VET  Code  [f008  ] 

[f009 
[fOlO 
) 

end 
tables 

morphsynlst  morphlst 
attributes 

fOOO  ••  morphsynlst  .morphcode  <■  morphlst  .morphnum,  upshift; 
fOOl  •  morphsynlst .morphsyn [1,  60 J ,  upshift; 
f002  -  morphsynlst .morphsyn ( 61, 100 ) ,  upshift; 

f004  -  morphlst .morphterm(l, 60] ,  upshift; 
fOOS  •  morphlst .morpht*rm{61, 100] ,  upshift; 
f006  «  morphlst .morphdef (1, 50] ,  upshift; 
f007  •  morphlst .morphdef 1 51, 100] ,  upshift; 
f008  ■■  morphlst  .morphsnocde,  upshift; 
f009  ■  morphlst .morphsnotrmf 1, 60] ,  upshift; 
fOlO  ••  morphlst  .morph3notrm(61, 100] ,  upshift; 

instructions 

morphsynlst  master  of  morphlst; 
end 
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#rawsign.per 
database  t)cstest 
screen 

Sign-Disease  Code  [fOOO 

Synonyms 

[fOOl 

[f002 


] 


Preferred  Term 


tf004 

[f005 


] 


Term  Definition  [f006 

[f007  ] 


System: [f] [fl 

SNOMED/VET  Code  (f008 

tfOOS 

[fOlO 

I 

end 


] 


1 


] 


tables 

signsynlst  signlst 
attributes 

£000  •  signsynlst . signcode  -  signlst .signnum,  upshift; 
fOOl  •  signsynlst. signsynd,  60],  upshift; 
f002  ■  signsynlst .signsyn [61, 100] ,  upshift; 

f004  -  signlst .sign [1, 60] ,  upshift; 
f005  ■  signlst. sign(61, 100] ,  upshift; 
f006  ••  signlst .  signdef  [1,  50] ,  upshift; 
f007  ■  signlst . signdef (51, 100] ,  upshift; 

f  -signlst . systemcode  -  signsynlst . signsynsys,  upshift; 

fl  -  signlst . systemname; 

f008  -  signlst .snocode,  upshift; 

f009  -  signlst . snoterm(l, 60] ,  upshift; 

fOlO  -  signlst . snoterm(61, 100] ,  upshift; 

instructions 

signsynlst  master  of  signlst; 

con^osites  <signlst .signnum,  signlst . systemcode> 

<signsynlst . signcode,  signsynlst .signsynsys>; 


] 


end 
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